Kod:
program
asdasd;
uses crt;
var
i,b:integer;
a:array[0..650] of string;
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;
writeln(a[i]);
end;
close(liczby);
readkey;
end.
Powinno działać... Jeśli jeszcze będzie jakiś problem to pisz
