[stil]

Код:

program p1;
uses crt;
type mas=array [0..0,0..0] of integer;
var i,j,n,m:integer;
     a:mas;
     f:text;
begin
clrscr;
assing(f,'1.txt');
reset(f);
read(f,n,m);
close(f);
for i:=0 to n-1 do begin
    for j:=0 to m-1 do begin
        a[i,j]:=i+j+1;
        write(a[i,j]:3);
    end;
end;
readln;
end.

В файле размер массива через пробел