Сложить две матрицы a(7,3) и b(7,3), найти наибольший и наименьший элементы в полученной сумме. Найденные элементы поменять местами.

Program matricy;
Uses crt;
 Var a,b,c:array [1..7,1..3] of integer;
     i,j,Max,Min,imin,imax,jmin,jmax,Buf:integer;
begin
Clrscr;
 Writeln ('Matrica A:');
 for i:=1 to 7 do
   for j:=1 to 3 do
     begin
      a[i,j]:=random(10);
      Write (a[i,j],' ');
     end;
 Writeln;
 Writeln ('Matrica B:');
 for i:=1 to 7 do
   for j:=1 to 3 do
     begin
      b[i,j]:=random(10);
      Write (b[i,j],' ');
     end;
 writeln;
 Writeln ('Matrica C:');
 for i:=1 to 7 do
   for j:=1 to 3 do
    c[i,j]:=a[i,j]+b[i,j];
 for i:=1 to 7 do
   for j:=1 to 3 do
   Write (c[i,j],' ');
 Max:=c[1,1];
 Min:=c[1,2];
 for i:=1 to 7 do
   for j:=1 to 3 do
    begin
     if c[i,j]>max then
      begin
       max:=c[i,j];
       imax:=i;
       jmax:=j;
      end;
     if c[i,j]<min then
     begin
       min:=c[i,j];
       imin:=i;
       jmin:=j;
      end;
    end;
 Writeln;
 Writeln ('max=',max);
 Writeln ('min=',min);
 Buf:=c[imin,jmin];
 c[imin,jmin]:=c[imax,jmax];
 c[imax,jmax]:=buf;
 Writeln ('Men9em mectamu i poly4aem:');
  for i:=1 to 7 do
   for j:=1 to 3 do
   Write (c[i,j],' ');
Readln
end.

Program baza_auto;
Uses crt;
label 10;
type spisok=record
     Mapka:string;
     Nomep:string;
     FIO_vladelca:string;
     end;
FT= file of spisok;
Var a:ft;
    i,z:integer;
    s:real;
Procedure Sozd (var a:ft);
Var i,j:integer;
    zk:spisok;
begin
rewrite (a);
j:=1;
 while j<>8 do
          begin
          write ('vvedite mapky: ');
          readln (zk.Mapka);
          write ('Vvedite gos_nomep: ');
          readln (zk.nomep);
          write ('vvedite fio vladelca: ');
          Readln (zk.fio_vladelca);
          write (a,zk);
          writeln ('Esli konec zapisi to nazhmite 8 ');
          readln (j);
          end;
close (a);
end;
Procedure vyvod (var a:ft);
Var i:integer;
    zk:spisok;
begin
reset (a);
 writeln ('=================================');
 writeln ('| MAPKA   |   HOMEP  | Bladelec |');
 writeln ('=================================');
  while not eof(a) do
   begin
    read (a,zk);
    write ('|',zk.Mapka:6,'|');
    write ('|',zk.nomep:9,'|');
    write ('|',zk.fio_vladelca:6,'|');
    writeln;
    writeln ('-------------------------------');
   end;
close (a);
end;
Procedure poisk (var a:ft);
var i:integer;
    zk:spisok;
    name:string;
begin
reset (a);
 writeln ('Vvedite MAPKY ABTO! ');
 readln (name);
 writeln ('spisok vladelcev: ');
 writeln ('=================================');
 writeln ('| MAPKA   |   HOMEP  | Bladelec |');
 writeln ('=================================');
 while not eof(a) do
 begin
  read (a,zk);
  if zk.mapka=name then
  begin
    write ('|',zk.Mapka:6,'|');
    write ('|',zk.nomep:9,'|');
    write ('|',zk.fio_vladelca:6,'|');
    writeln;
    writeln ('-------------------------------');
  end;
 end;
close(a);
end;
begin
clrscr;
10:
assign (a,'baza_automobiley ');
writeln ('       MEHIO      ');
writeln ('1:cozdanie ');
writeln ('2:vyvod ');
writeln ('3:poisk ');
writeln ('4:vyxod ');
readln (z);
 case z of
  1:sozd(a);
  2:vyvod (a);
  3:poisk (a);
  4:exit;
  end; goto 10;
readln
end.