Czesc

Musze wczytac z pliku liczby.txt wygladajacego mniej wiecej tak:

2197
2586
263057
54456
90415
10450

te liczby (jest ich 650). Problem polega na tym ze nie wiem jak je wczytac i wypisac, gdyz po kazdych moich probach wczytuje sie tylko kilka z nich a w dodatku niektore wygladaja hm dziwnie . Probowalem na rozne sposoby a skonczylem tak:

nie mam juz pomyslow wiec prosze o pomoc. z gory dzieki.

Powinno działać... Jeśli jeszcze będzie jakiś problem to pisz

Przy b:integer program sie nie kompiluje a jak zmienie to na cokolwiek to i tak wczytuje, a raczej wypisuje tylko 24 liczby z czego pierwsza ma postac "6.728300000E+005" nastepnie 2 sie powtarzaja i wypisuje 24 ostatnie liczby z pliku.

Daj tablicę jako integer zamiast string, to powinno wyeliminować problem dziwnych znaczków zamiast liczb
Co do tego wyświetlania... Wydaje mi się, że wszystko jest dobrze, tylko okno konsoli jest po prostu za małe żeby wyświetlić te wszystkie liczby. One faktycznie są wpisane do tablicy.

dziekuje za pomoc, juz wszystko dziala.

Zeby nie zakladac nowego tematu:
chce spotegowac i wypisac liczby pierwsze z tablicy jednak wyskakuje mi "blablabl exitcode = 215" byc moze jest to zwiazane z typami zmiennych, probowalem zmienic tablice na real ale wtedy nie kompiluje mi sie program:

program asdsadsa;
uses crt;

var i,j,b:longint;
ok:boolean;
a:array[1..650] of longint;
liczby:text;




begin
clrscr;
assign(liczby, 'C:\Users\user\Desktop\liczby.txt');
reset(liczby);
for i:=1 to 650 do
begin
read(liczby,b);
a[i]:=b;
end;
for i:=1 to 650 do
begin
if(a[i]=1) then
ok:=false
else ok:=true;
for j:=2 to a[i]-1 do
if(a[i] mod j=0) then
ok:=false;
if(ok=true) then writeln(a[i]*a[i]);
end;
readkey;
end.



Jesli zostawiam samo wypisanie liczb pierwszych bez ich potegowania wszystko gra. Co robic w tym przypadku?