Матрицы

unit Unit1;
interface
uses crt;
const n=3;
type matr=array[1..n,1..n] of integer;
procedure Vvod(var a:matr;c:char);{ввод матриц}
procedure Vyvod(var a:matr;k:byte;c:string);{вывод на экран}
function Min(a:matr):integer;{минимум}
function Max(a:matr):integer;{максимум}
procedure UmnC(var a:matr;k:integer);{умножение матрицы на число}
procedure SumRaz(var a:matr;b:matr;k:integer);{сложение(к=1)
                                               и вычитание(к=-1) матриц}
implementation
procedure Vvod(var a:matr;c:char);
var i,j:byte;
begin
writeln('Введите элементы матрицы ',c);
for i:=1 to n do
for j:=1 to n do
 begin
  write('el[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
end;
procedure Vyvod(var a:matr;k:byte;c:string);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:k);
  writeln;
 end;
writeln;
end;
function Min(a:matr):integer;
var i,j:byte;
    mn:integer;
begin
mn:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<mn then mn:=a[i,j];
Min:=mn;
end;
function Max(a:matr):integer;
var i,j:byte;
    mx:integer;
begin
mx:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>mx then mx:=a[i,j];
Max:=mx;
end;
procedure UmnC(var a:matr;k:integer);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=a[i,j]*k;
end;
procedure SumRaz(var a:matr;b:matr;k:integer);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=a[i,j]+k*b[i,j];
end;
end.

uses crt,unit1;
var a,b,c:matr;
    ma,mb,mc:integer;
begin
clrscr;
Vvod(a,'A');
Vvod(b,'B');
Vvod(c,'C');
Vyvod(a,4,'A');
ma:=Min(a);
writeln('Минимальный элемент матрицы А=',ma);
Vyvod(b,4,'B');
mb:=Max(b);
writeln('Максимальный элемент матрицы B=',mb);
Vyvod(c,4,'C');
mc:=Min(c);
writeln('Минимальный элемент матрицы C=',mc);
write('Press Enter...');
readln;
UmnC(b,ma);
UmnC(c,mb);
UmnC(a,mc);
Vyvod(a,5,'A*minC');
Vyvod(b,5,'B*minA');
Vyvod(c,5,'C*maxB');
SumRaz(b,c,1);
SumRaz(b,a,-1);
Vyvod(b,5,'Z=B*minA+C*maxB-A*minC');
write('Press Enter...');
readln
end.