Даны массивы А1, … , А20 В1, … , В20. Поменять местами Аmin и Вmax — Pascal(Паскаль)

program massiv;

uses crt;

const
  n = 20;

type
  matrica = array [1 .. n] of byte;

var
  a: matrica;
  b: matrica;
  i: integer;
  j: integer;
  maxB: integer;
  minA: integer;
  c, d, f: integer;

begin
  writeln;
  clrscr;
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i], ' ');
  end;
  writeln;
  writeln;
  for i := 1 to n do
  begin
    b[i] := random(10);
    write(b[i], ' ');
  end;
  writeln;
  minA := a[1];
  c := 1;
  for i := 2 to n do
    if minA > a[i] then
    begin
      minA := a[i];
      c := i;
    end;
  maxB := b[1];
  d := 1;
  for i := 2 to n do
    if maxB < b[i] then
    begin
      maxB := b[i];
      d := i;
    end;
  f := a[c];
  a[c] := b[d];
  b[d] := f;
  writeln;
  for i := 1 to n do
  begin
    write(a[i], ' ');
  end;
  writeln;
  writeln;
  for i := 1 to n do
  begin
    write(b[i], ' ');
  end;
  writeln;
  readln;

end.