Выделить Элименты матрицы другим цветом

uses crt;
type
Tmatr=array[1..50,1..50]of integer;
procedure Vvod(x:integer;var z:Tmatr);{создание и вывод на экран исходных матриц}
var i,j:integer; {локальные переменные-счетчики циклов по строкам и столбцам}
begin
for i:=1 to x do
  begin
    for j:=1 to x do
      begin
        z[i,j]:=random(20);
        write(z[i,j]:4);
      end;
    writeln;
  end;
end;
Procedure Sort(x:integer; var z:Tmatr);{процедура обработки матрицы по условию}
var i,j,max,imax,jmax,bf:integer;{ max-максимальный элемент,imax-строка, где он находится,jmax-столбец,bf-переменная-буфер для сортировки обменом }
begin
max:=z[1,1];imax:=1;jmax:=1;{начальные значения}
for i:=1 to x do
for j:=1 to x do
if z[i,j]>max then
    begin
       max:=z[i,j];{находим максимальный}
      imax:=i;  {номер строки}
 
      jmax:=j;  {номер столбца}
    end;
if jmax<imax then {это признак того, что элемент ниже главной диагонали}
   begin
     for i:=1 to x-1 do
     for j:=1 to x-1 do
     if z[j,j]>z[j+1,j+1] then {обычная сортировка пузырьком главной диагонали, ее признак-номер строки=номеру столбца}
        begin
          bf:=z[j,j];
          z[j,j]:=z[j+1,j+1];
          z[j+1,j+1]:=bf;
        end;
   end
else if jmax>imax then {признак того, что элемент выше главной диагонали,остальное тоже, только по убыванию}
   begin
     for i:=1 to x-1 do
     for j:=1 to x-1 do
     if z[j,j]<z[j+1,j+1] then
        begin
          bf:=z[j,j];
          z[j,j]:=z[j+1,j+1];
          z[j+1,j+1]:=bf;
        end;
   end
else if jmax=imax then {на главной диагонали}
    begin
     for i:=1 to x do
     z[i,i]:=0; {елементы главной диагонали}
    end;
end;
Procedure Vyvod(x:integer; var z:Tmatr);{вывод матрицы на экран}
var i,j:integer;
begin
for i:=1 to x do
   begin
     for j:=1 to x do
     write(z[i,j]:4);
     writeln;
   end;
end;
var a,b:Tmatr;  {глобальные переменные программы, две матрицы}
    n,m:integer;  {размеры}
begin
clrscr;
randomize;
write('n=');readln(n);
write('m=');readln(m);
writeln('Матрица A:');
Vvod(n,a); {вызываем ввод для А}
Sort(n,a);  {преобразование}
Writeln('Результат матрицы A:');
Vyvod(n,a);
readln;
writeln('Матрица B:');
Vvod(m,b);  {тоже для В}
Sort(m,b);
Writeln(''Результат матрицы  B:');
Vyvod(m,b);
readln
end.