Упорядочить по убыванию максимальные элементы матриц

program pr;
 
type
  arr = array [1..100, 1..100] of integer;
 
var
  a, b, c: arr;
  m, n, x, y, z, t: integer;
 
procedure fillshow(var v: arr; n: integer;  m: integer);
var
  i, j: integer;
begin
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      v[i, j] := random(21)-10;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(v[i, j]:3);
    writeln;
  end;
end;
 
procedure find(var v: arr; var av: integer);
var
  i, j, max, index: integer;
begin
  max := v[1, 1];
  for i := 1 to n do
    for j := 1 to m do
      if v[i, j] >= max then
      begin
        max := v[i, j];
        index := i;
      end;
  av := max;
end;
 
begin
  writeln('Введите количество строк матрицы A');
  readln(n);
  writeln('Введите количество столбцов матрицы A');
  readln(m);
  fillshow(a, n, m);
  find(a, x);
  writeln;
  writeln('Введите количество строк матрицы B');
  readln(n);
  writeln('Введите количество столбцов матрицы B');
  readln(m);
  fillshow(b, n, m);
  find(b, y);
  writeln;
  writeln('Введите количество строк матрицы C');
  readln(n);
  writeln('Введите количество столбцов матрицы C');
  readln(m);
  writeln;
  fillshow(c, n, m);
  find(c, z);
  writeln;
  if (x < y) then
  begin
    t := x;
    x := y;
    y := t;
  end;
  if (y < z) then
  begin
    t := y;
    y := z;
    z := t;
  end;
  if (x < y) then
  begin
    t := x;
    x := y;
    y := t;
  end;
  writeln(x, ' ', y, ' ', z)
end.