матрицы в паскале

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,mn,imn1,jmn1,imn2,jmn2,x:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(40)+10;
imn1:=2;jmn1:=1;
for i:=2 to n do
for j:=1 to i-1 do
if a[i,j]<a[imn1,jmn1] then
 begin
  imn1:=i;
  jmn1:=j;
 end;
imn2:=1;jmn2:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,j]<a[imn2,jmn2] then
 begin
  imn2:=i;
  jmn2:=j;
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
   if (i=imn1)and(j=jmn1)then
    begin
     textcolor(12);
     write(a[i,j]:4);
    end
   else if (i=imn2)and(j=jmn2)then
    begin
     textcolor(10);
     write(a[i,j]:4);
    end
   else
    begin
     textcolor(15);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
x:=a[imn1,jmn1];
a[imn1,jmn1]:=a[imn2,jmn2];
a[imn2,jmn2]:=x;
writeln('Перестановка минимальных элементов:');
for i:=1 to n do
 begin
   for j:=1 to n do
   if (i=imn1)and(j=jmn1)then
    begin
     textcolor(10);
     write(a[i,j]:4);
    end
   else if (i=imn2)and(j=jmn2)then
    begin
     textcolor(12);
     write(a[i,j]:4);
    end
   else
    begin
     textcolor(15);
     write(a[i,j]:4);
    end;
   writeln;
 end;
readln
end.