Матрицы основа

uses crt;
const
m=6;
b:array[1..m,1..m] of byte=((1,2,3,4,5,6),
                            (2,3,4,5,2,3),
                            (3,3,4,0,6,7),
                            (4,3,4,5,6,7),
                            (5,6,6,5,6,6),
                            (6,3,4,5,6,7));
var i,j,i0,j0,f:byte;
begin
clrscr;
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
  write(b[i,j]:3);
  writeln;
 end;
f:=0;
for i:=1 to m do
for j:=1 to m do
if b[i,j]=0 then
 begin
  i0:=i;
  j0:=j;
  f:=1;
  break;
 end;
if f=0 then
 begin
  write('Нулевого элемента в матрице нет!');
  readln;
  exit;
 end
else
 begin
  for i:=1 to m do
  for j:=j0 to m-1 do
  b[i,j]:=b[i,j+1];
  for j:=1 to m-1 do
  for i:=i0 to m-1 do
  b[i,j]:=b[i+1,j];
  writeln('Результат:');
  for i:=1 to m-1 do
   begin
    for j:=1 to m-1 do
    write(b[i,j]:3);
    writeln;
   end;
 end;
readln
end.