Delphi 7 как вывести в консоле

[Андрей93]

Немогу написать код для нахождения первого max на главной диагонали, последнего min на побочной диагонали и поменять их местами первая часть кода есть:
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=6;
var a:array[1..n] of array[1..n] of integer;
i,j:integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to n do a[i,j]:=Random(9)+1;
for i:=1 to n do begin
for j:=1 to n do
Write(a[i,j],' ');
Writeln;
end;
readln;
end.

[psycho-coder]

работа с матрицами