Матрицы, процедуры

uses crt;
const n=4;{размер матрицы}
type matr=array[1..n,1..n] of integer;{тип матрицы}
procedure Vychit(var mt:matr);{процедура вычитания строк}
var i,j:byte;
begin
for i:=1 to n div 2 do{до половины}
for j:=1 to n do
mt[2*i,j]:=mt[2*i,j]-mt[2*i-1,j];{из четных строк вычитаем нечетные}
end;
procedure Kratn3(mt:matr; var max:integer);{процедура поска макс из кратных 3}
var i,j,k:byte;
begin
k:=0;
for i:=1 to n do
for j:=1 to n do
if mt[i,j] mod 3=0 then{ищем первое кратное трем}
  begin
    max:=mt[i,j];{оно будет макс}
    k:=1;{фиксируем что нашли}
    break;{прекращаем поиск}
  end;
if k=0 then writeln('Kratnyh 3 net!')
else
  begin
    for i:=1 to n do
    for j:=1 to n do
    if (mt[i,j]>max)and(mt[i,j] mod 3=0) then{ищем если есть еще большие кратные 3}
    max:=mt[i,j];{запоминаем}
  end;
writeln('Maximalnyj element=',max);
end;
 
var a:matr;
    i,j:byte;
    mx:integer;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
      end;
    writeln;
  end;
Vychit(a);{вызываем процедуру вычитания}
writeln('Izmenennaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
Kratn3(a,mx);{поиск максимального кратного 3}
readln
end.