Не работает чтение из файла программы

Uses crt,dos;
 
type
 ta=array[1..10,1..10] of shortint;
 tb=array[1..10] of shortint;
var
 a:byte;
 b:char;
 c:boolean;
 d:ta;
 e,f,g,h:tb;
 m,n:shortint;
 k,i,j: shortint;
 c1:string;
 s:searchrec;
 f1:text;
 
const
 dat='.txt';
 
procedure menu;
begin
 c:=true;
 a:=1;
 while c=true do
  begin
  clrscr;
   textmode(co80);
   window(1,12,80,12);
   textbackground(0);
   clrscr;
   if a=1 then
    begin
    textbackground(12);
    clrscr;
    end;
   gotoxy(30,1);
   write('Создать массив');
   window(1,13,80,13);
   textbackground(0);
   clrscr;
   if a=2 then
    begin
    textbackground(12);
    clrscr;
    end;
   gotoxy(30,1);
   write('Загрузить массив');
   window(1,14,80,14);
   textbackground(0);
   clrscr;
   if a=3 then
    begin
    textbackground(12);
    clrscr;
    end;
   gotoxy(30,1);
   write('Заполненить случайно');
   window(1,24,80,24);
   textbackground(0);
   gotoxy(30,1);
   write('Esc - выход');
   b:=readkey;
      case b of
   #27:halt;
   #72:if a>1 then
    a:=pred(a);
   #80:if a<3 then
    a:=succ(a);
   #13:c:=false;
   end;
  end;
end;
 
procedure menu2;
begin
 c:=true;
 a:=1;
 while c=true do
  begin
  clrscr;
  textmode(co80);
  window(1,12,80,12);
  textbackground(0);
  clrscr;
 
 if a=1 then
   begin
   textbackground(12);
   clrscr;
   end;
  gotoxy(30,1);
  write('Сохранить');
  window(1,13,80,13);
  textbackground(0);
  clrscr;
  if a=2 then
   begin
   textbackground(12);
   clrscr;
   end;
  gotoxy(30,1);
  write('Вывести на экран');
  window(1,24,80,24);
  textbackground(0);
  gotoxy(30,1);
  write('Esc - выход');
  b:=readkey;
  case b of
  #27:halt;
  #72:if a>1 then
   a:=pred(a);
  #80:if a<2 then
   a:=succ(a);
  #13:c:=false;
   end;
  end;
  textmode(co80);
end;
 
procedure massiv;
begin
 textmode(co80);
 repeat
  clrscr;
  write('Введите количество строк');
  {$I-}{$R-}
  readln(m);
  if not((IOResult=0)and(m>=1)and(m<=20)) then
  begin
   c:=false;
   writeln('Введите число от 1 до 20');
   readkey;
   end
  else c:=true;
  until c=true;
 repeat
  clrscr;
  write('Введите количество столбцов');
  readln(n);
  if not((IOResult=0)and(n>=1)and(n<=20)) then
  begin
   c:=false;
   writeln('Введите число от 1 до 20');
            readkey;
   end
  else c:=true;
  until c=true;
  {SI+}{SR+}
 end;
 
procedure koef;
begin
 {SI-}{SR-}
 textmode(co80);
 repeat
  clrscr;
  write('Введите K=');
  readln(k);
  if not((IOResult=0)and(k>=-100)and(k<=100)) then
  begin
   c:=false;
   writeln('Введите число от -100 до 100');
   readkey;
  end
 else c:=true;
 until c=true;
 {SI+}{SR+}
end;
 
 
 
 
 
 
 
procedure zapolnenie;
begin
 clrscr;
 massiv;
 for i:=1 to m do
 for j:=1 to n do
 begin
  c:=false;
  while c=false do
  begin
   {SI-}{SR-}
   clrscr;
   write('Введите элемент',i,'строки',j,'столбца');
   readln(d[i,j]);
   if not((IOResult=0)and(d[i,j]>=-100)and(d[i,j]<=100)) then
   begin
    c:=false;
   writeln('Введите число от -100 до 100');
    readkey;
    end
    else c:=true;
   end;
  {SI+}{SR+}
  end;
koef;
end;
 
procedure sluchai;
begin
 massiv;
 koef;
 for i:=1 to m do
 for j:=1 to n do
 d[i,j]:=random(9);
 end;
 
 
 
procedure zagruz1;
 begin
write('File name');
readln(c1);
{$I-}
Assign(f1,c1);reset(f1);{$I+}
for i:=1 to M do
begin
For j:=1 to N-1 do
readln(f1,m,n);
read(f1,D[i,j]);
readln(f1);
end;
close(f1);
end;
 
 
 
procedure sohr; {после преобразования}
 begin
write('Введите имя');
readln(c1);
assign(f1,c1);
rewrite(f1);
writeln(f1,M,N);
for i:=1 to M do
   begin
For j:=1 to N-1 do
write(f1,D[i,j],' ');
writeln(f1,D[i,n]);
   end;
close(f1);
 end;
 
 
 
procedure vychislenie;
begin
 textmode(co80);
 clrscr;
 for i:=1 to m do
 if d[i,1] <>0 then
  begin
  for j:=2 to n do
  begin
  d[i,j]:=d[i,j]div d[i,1];
 d[i,1]:=1;
 end;
 end;
for j:=1 to n do
 begin
   e[j]:=d[1,j];
   f[j]:=d[2,j];
   g[j]:=d[3,j];
   h[j]:=d[4,j];
end;
end;
 
procedure vyvod;
begin
 Clrscr;
 for i:=1 to n do
  if e[i]>=k then
  write(e[i]:3);
 writeln;
 for i:=1 to n do
  if f[i]>=k then
  write(f[i]:3);
 writeln;
 for i:=1 to n do
  if g[i]>=k then
  write(g[i]:3);
 writeln;
 for i:=1 to n do
  if h[i]>=k then
  write(h[i]:3);
 writeln;
window(1,24,80,24);
 textbackground(0);
 gotoxy(30,1);
 write('1- сохранить файл');
b:=readkey;
if b=#49 then
end;
 
 
 
 
begin
 menu;
case a of
 1:zapolnenie;
 2:{SI-}
  zagruz1;
  {SI+}
3:sluchai;
 end;
 vychislenie;
 menu2;
 case a of
 1:sohr{anenie};
 2:vyvod;
 end;
end.