(pascal)Матрица в файле

uses crt;
const n=15;
var
    m:array [1..n,1..n] of integer;
    f:file of integer;
    a,b,zd,y,i,v:integer;
begin

textbackground(1);
clrscr;
textcolor(12);
writeln('Введите количество строк:');
readln(a);
writeln('Введите количество столбов:');
readln(b);
assign(f,'C:\BP\MATR.dat');
rewrite(f);
begin
for i:=1 to a do
for y:=1 to b do begin
m[i,y]:=random(100);
write(f,m[i,y]);
end;
clrscr;
textcolor(white);
rewrite(f);
for i:=1 to a do
 begin
 for y:=1 to b do
 read(f,m[i,y]);
 write (m[i,y]:2,' ');
 writeln;
 end;
 close(f);
begin
  textcolor(14);
  writeln;
  write ('Что будем удалять? Строку-1/Столб-2: ');
  readln(zd);
  if (zd=1) then a:=a-1 else b:=b-1;
  for i:=1 to a do
  for y:=1 to b do begin
  write (m[i,y]:2,' ');
  writeln;
  end;
  end;
assign(f,'c:\bp\MATR.dat');
reset(f);
  for i:=1 to a do begin
  for y:=1 to b do begin
  read(f,m[i,y]);
  write (m[i,y]:2,' ');
  end;
  writeln;
  end;
readln;
close(f)
end;
end.