Найти минимальный элемент в двумерном массиве, заданный случайным образом. Отметить его цветом, напечатать номер строки и столбца, где он стоит — Pascal(Паскаль)

uses crt;
var
 a:array[1..20,1..20] of integer;
 i,j,n,imin,jmin,min,m:integer;
begin
clrscr;
write(': ');
readln(n);
write('-: ');
readln(m);
writeln('-: ');
randomize;
min:=a[1,1];
imin:=1;
jmin:=1;
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10)-3;
     write(a[i,j]:3);
     if a[i,j]<min then
     begin
      min:=a[i,j];
      imin:=i;
      jmin:=j;
     end;
    end;
    writeln;
    end;
   writeln;
   writeln('MIN[',imin,';',jmin,']:=',min);
   writeln;
   for i:=1 to n do
   begin
    for j:=1 to m do
    begin
    if (i=imin) and (jmin=j) then textcolor(12)
    else textcolor(0);
     write(a[i,j]:3);
     end;
     writeln;
     end;
 end.