Поменять местами элементы в нижнем правом углу с произвольным элементом массива

const n=7;
type matr=array [1..n,1..n] of integer;
 
procedure vivod(a:matr); {вывод массива}
var i,j:byte;
begin
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:3,' ');
    writeln;
  end;
end;
 
procedure change(var a:matr); {замена нижнего правого со случайным}
var x:integer;
    i,j:byte;
begin
  i:=random(n)+1; j:=random(n)+1;
  x:=a[n,n]; a[n,n]:=a[i,j]; a[i,j]:=x;
end;
 
procedure minp(a:matr); {какой меньше}
begin
  if a[1,n]<a[n,1] then write('Verhniy praviy')
    else write('Nizhniy leviy');
end;
 
function nul(a:matr):boolean; {есть ли 0}
var b:boolean;
begin
  b:=false;
  if (a[1,1] mod 10=0) or (a[1,n] mod 10=0)
    or (a[n,1] mod 10=0) or (a[n,n] mod 10=0)
      then b:=true;
  nul:=b;
end;
 
var
  a:matr;
  i,j,c:byte;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(101);
  vivod(a);
  repeat
    writeln('Vybetyte variant:');
    writeln('1. Zamena');
    writeln('2. Kakoy menshe');
    writeln('3. Est li nul');
    readln(c);
  until c in [1..3];
  case c of
    1:  begin
          change(a); vivod(a);
        end;
    2: minp(a);
    3: write(nul(a));
  end;
  readln;
end.