Процедуры и функции програмиста

[Berserk0]

uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure Vvod(var a:matr;var m:byte);
var i,j:byte;
begin
for i:=1 to m do
for j:=1 to m do
a[i,j]:=random(20);
end;
procedure Vyvod(var a:matr;m:byte;mx,k:integer;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to m do
begin
for j:=1 to m do
begin
if (k>1)and(a[i,j]=mx) then textcolor(14)
else textcolor(15);
write(a[i,j]:4);
end;
writeln;
end;
textcolor(15);
end;
function KolMax(a:matr;m:byte;var mx:integer):integer;
var i,j:byte;
k:integer;
begin
mx:=a[1,1];
k:=1;
for i:=1 to m do
for j:=1 to m do
if a[i,j]>mx then
begin
mx:=a[i,j];
k:=1;
end
else if (a[i,j]=mx)and(i+j>2) then k:=k+1;
KolMax:=k;
end;
var a,b:matr;
n:byte;
k,mx:integer;
begin
clrscr;
randomize;
repeat
write('Размер матриц до ',nmax,' n=');
readln(n);
until n in [1..nmax];
Vvod(a,n);
Vvod(b,n);
k:=KolMax(a,n,mx);
Vyvod(a,n,mx,k,'A');
writeln('Максимальный элемент=',mx,' количество=',k);
k:=KolMax(b,n,mx);
Vyvod(b,n,mx,k,'B');
writeln('Максимальный элемент=',mx,' количество=',k);
readln
end.

если проверить то всё верно?

[Stilet]

А почему сам не проверишь?

[Berserk0]

ну я вижу что правильно
вдруг есть другие способы....?поменьше?

[Stilet]

Есть конечно )
Можно проводить вычисление по мере ввода данных.