Происходит зацикливание когда хочу заполнить массив из файла

program dynmas;
uses crt;
type intline=array [1..1] of integer;
     dyn=^intline;
     intcol=array [1..1] of dyn;
     dynmass=^intcol;
{$R-}
{$I-}
procedure maxelem(var a:dynmass;n,m:longint);
var i,j:longint;
min,max:integer;
begin
max:=0;
for j:=1 to m do begin
max:=a^[1]^[j];
for i:=2 to n do
if a^[i]^[j]<max then
min:=a^[i]^[j];
if min>max then
max:=min;
end;
end;
 
var a:dynmass=nil;
p,s,x,l,max:integer;
n,i,j,k,m:longint;
f:file of integer;
ok:boolean;
begin
repeat
clrscr;
writeln('1.Ввести размеры');
writeln('2.Ввести с клавиатуры');
writeln('3.Задать случайным образом');
writeln('4.Вывести таблицу');
writeln('5.Заполнение из файла');
writeln('6.Создать файл');
writeln('7.Вызвать Подпрограмму');
writeln('8.Выход');
writeln('Ваш выбор?');
 
readln(p);
case p of
1:begin
    {Освобождение Памяти}
if a<>nil then begin
for i:=1 to n do
freemem(a^[i],m*sizeof(intline));
freemem(a,n*sizeof(intcol));
                 end;
 
 
    writeln('n=');
    readln(n);
 
    writeln('m=');
    readln(m);
    {Выделение памяти}
      getmem(a,sizeof(intcol)*n);
 for i:=1 to n do
 getmem(a^[i],sizeof(intline)*m);
 
 
    end;
2:begin
 
 writeln('Введите значения с клавиатуры');
        for i:=1 to n do
        begin
        for j:=1 to m do
        begin
        writeln('Введите значение ячейки');
        readln(a^[i]^[j]);
 
        end;
        end;
        end;
3:begin
    randomize;
     for i:=1 to n do
     for j:=1 to m do
      a^[i]^[j]:=random(21)+1
end;
7:begin;
maxelem(a,n,m);
writeln('Максимальный элемент среди минимальных элементов столбцов',max);
readln;
end;
4: begin
for i:=1 to n do begin
writeln;
for j:=1 to m do
write(a^[i]^[j]:4)
end;
readln;
end;
 
5:begin
{Освобождение памяти}
if a<> nil then  begin
                  for i:=1 to n do
                     freemem(a^[i],m*sizeof(intline));
                     freemem(a,n*sizeof(intcol));
                 end;
assign(f,'d:/tip.pas');
reset(f);
read(f,x);
n:=round(x);
read(f,x);
m:=round(x);
 
{Выделение памяти}
getmem(a,n*sizeof(intcol));
 for i:=1 to n do
 getmem(a^[i],m*sizeof(intline));
for i:=1 to n do
for j:=1 to m do
read(f,a^[i]^[j]);
close(f);
end;
6:begin
 
assign(f,'d:/tip.pas');
rewrite(f);
 
write('l=');
read(l);
 
randomize;
for k:=1 to l do
begin
   x:=random(21)+1;
   write(x:3);
   write(f,x);
end;
close(f);
end;
end;
{$I+}
{$R+}
until p=8;
end.

type
   intline=array [1..MaxInt div SizeOf(Integer)] of integer;
   dyn=^intline;
   intcol=array [1..MaxInt div SizeOf(Dyn)] of dyn;
   dynmass=^intcol;
 
// ...
{Выделение памяти}
getmem(a,n*sizeof(dyn));
for i:=1 to n do
   getmem(a^[i],m*sizeof(Integer));

   6: // Создание файла
   begin
      assign(f,'d:/tip.pas');
      rewrite(f);
      write('l=');
      read(l);
 
      randomize;
      repeat
         i := Random(21) + 1;
         j := Random(21) + 1;
      until i * j <= L;
      write(f, i);
      write(f, j);
 
      for k:=1 to l do
      begin
         x:=random(21)+1;
         write(x:3);
         write(f,x);
      end;
      close(f);
    end;