Function нахождения максимального элемента матрицы (дописать в программу) Pascal ABC

[программирование]

напишите, пожалуйста, чтобы в Function можна было вывести отсортированную матрицу (которая получилась в Procedure Print), чтобы все элементы матрицы при выводе изменяли цвет через каждые 2 секунды.

ВОТ ПРОГРАММА

program jh_1;
uses crt;
type a=array[1..20,1..20] of integer;
sort=array[1..20,1..20] of integer;
var n:integer;
massiv:a;
mass:sort;
i,j:integer;

procedure vid(n:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
massiv[i,j]:=random(9)-5;
write(massiv[i,j],' ');
end;
writeln;
end;
end;


procedure sor(n,i,j:integer);
var T,k,l:integer;
begin
mass:=massiv;
for l:=1 to n do begin
For i:=2 to n do
Begin T:=mass[l,i]; j:=1;
While T>mass[l,j] do j:= j +1;
For k:=i-1 downto j do mass[l,k+1] := mass[l,k]; mass[l,j]:=T;
End;
end;
Writeln ('Óïîðÿäêîâàíèé ìàñèâ: ');
for l:=1 to n do begin
For i := 1 to n do Write(mass[i,l],' '); Writeln;end;
end;
function max(n:integer): integer;
var
max: integer;
i, j: integer;
begin
max := mass[1,1];
for i := 1 to n do
begin
for j := 1 to n do
begin
if max < mass[i, j] then
max := mass[i, j];
end;
end;

result := max;
end;
procedure print(n:integer);
var i,j:integer;
begin
for i := 1 to n do begin
for j := 1 to n do
if (i <> j) and (i+j-1 <> n) then
Write (mass[i, j] : 3);
WriteLn;
end;end;

begin
clrscr;
writeln('ââåäèòå ðîçìåð ìàòðèöû');
readln(n);
vid(n);
sor(n,i,j);
writeln('Max = ', max(n));
print(n);
end.