Элементарная задачка

[Dirt]

Либо так:

uses crt;
type
massiv3=array[1..1000]of integer;
var
 i, j, code:integer;
 ff:text;
 m3:massiv3;
 str:string;

begin
clrscr;
assign(ff,'2.txt');
reset(ff);
while not eof(ff) do
begin
readln(ff,str);
for i:=1 to length(str) do
 begin
      j:=j+1;
      val(str[i], m3[j], code);
 end;
end;
close(ff);
readln;
end.

Так если будет 2 - n строк, тож будет работать