Информатика=) / Паскаль / 3 лаба

program lab;
type mas=array[1..10,1..10] of real;
var a1,a2,a3:mas;
n1,n2,n3,m1,m2,m3:integer;
procedure vvod (var a:mas; var m,n:integer; q:string);
var i,j:integer;
begin
write('Кол-во строк массива ',q,' = ');
readln(n);
write ('Кол-во столбцов массива ',q,' = ');
readln(m);
for i:=1 to n do
for j:=1 to m do begin
write(q,'[',i,',',j,'] = ');
readln(a[i,j]);
end;
writeln;
end;
procedure vyvod (var a:mas; m,n:integer; q:string);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
writeln(q,'[',i,',',j,'] = ',a[i,j]);
readln;
end;
procedure change(var x:mas; n,m:integer; q:string);
var min,max:real;
c,k,l,b,i,j:integer;
begin
min:=x[1,1];
max:=x[1,1];
c:=1;
k:=1;
l:=1;
b:=1;
for i:=1 to n do
for j:=1 to m do if (x[i,j]>max) then begin
max:=x[i,j];
c:=i;
k:=j;
end else if (x[i,j]<min) then begin
min:=x[i,j];
l:=i;
b:=j;
end;
writeln('Максимум массива ',q,' = ',max,', а минимум = ',min);
x[c,k]:=min;
x[l,b]:=max;
writeln;
end;
{Основная программа}
begin
vvod(a1,n1,m1,'A1');
vvod(a2,n2,m2,'A2');
vvod(a3,n3,m3,'A3');
change(a1,n1,m1,'A1');
change(a2,n2,m2,'A2');
change(a3,n3,m3,'A3');
vyvod(a1,n1,m1,'A1');
vyvod(a2,n2,m2,'A2');
vyvod(a3,n3,m3,'A3');
end.