Ошибка в программе

uses matrica;
var
  a: matr;
  i, j, k, u, b: byte;
 
begin
  Vvod(a, i, j);
  Vyvod(a, i, j);
  
  Umn(a, k);
  Vyvod(a, i, j);
  
  Zamena(a, u, b);
  Vyvod(a, i, j);
  
  MinMax(a, i, j);
end.

unit matrica;
 
interface
 
type
  matr = array[1..100, 1..100] of integer;
 
procedure Vvod(var mt: matr; var x, y: byte);
procedure Vyvod(var mt: matr; x, y: byte);
procedure Umn(var mt: matr; k: integer);
procedure Zamena(var mt: matr; t, r: byte);
procedure MinMax(mt: matr; x, y: byte);
 
implementation
 
procedure Vvod(var mt: matr; var x, y: byte);{создание матрицы, ее размеры}
var
  i, j, k: byte;
begin
  write('Количество строк = ');
  readln(x);
  write('Количество столбцов = ');
  readln(y);
  writeln('Матрица:');
  for i := 1 to x do
    for j := 1 to y do
      mt[i, j] := random(20) - 10;
end;
 
procedure Vyvod(var mt: matr; x, y: byte);{вывод матрицы на экран}
var
  i, j: byte;
begin
  for i := 1 to x do
  begin
    for j := 1 to y do
      write(mt[i, j]:4);
    writeln;
  end;
  writeln;
end;
 
procedure Umn(var mt: matr; k: integer);
var
  i, j, x, y: byte;
begin
  writeln('Умножение матрицы на число');
  writeln('Введите число, на которое нужно умножить матрицу:');
  readln(k);
  for i := 1 to x do
    for j := 1 to y do
      mt[i, j] := mt[i, j] * k;
end;
 
procedure Zamena(var mt: matr; t, r: byte);
var
  j, y: byte;
  x: integer;
begin
  writeln('Введите строки, которые нужно поменятьы');
  readln(t);
  readln(r);
  for j := 1 to y do
  begin
    x := mt[t, j];
    mt[t, j] := mt[r, j];
    mt[r, j] := x;
  end;
end;
 
procedure MinMax(mt: matr; x, y: byte);
var
i, j, z, q: byte;
min, max: integer;
begin
  min := mt[1, 1];
  for i := 1 to x do
    for j := 1 to y do
      if mt[i, j] < min then
      begin
        min := mt[i, j];
        z := i;
        q := j;
      end;
  writeln('min = ', min, '[', z, ',', q, ']');
  read;
  max := mt[1, 1];
  for i := 1 to x do
    for j := 1 to y do
      if mt[i, j] > max then
      begin
        max := mt[i, j];
        z := i;
        q := j;
      end;
  writeln('max = ', max, '[', z, ',', q, ']');
  read;
end;
end.

procedure Umn(var mt: matr; k: integer);
var
  i, j, x, y: byte; // значение локальных переменных x, y не имеет ничего общего с тем, что вводилось пользователем