Определить максимальный элемент матрицы в заштрихованной области

procedure TForm1.Button1Click(Sender: TObject);
var i,j,max:integer;
    s:string;
    a:array[1..5,1..5] of integer;
begin
Randomize;
For i:=1 to 5 do
For j:=1 to 5 do
a[i,j]:=Random(21);//забиваем массив числами от 0 до 20
 
max:=a[1,1];//максимальный ел = 1 значению матрицы
 
For i:=1 to 5 do
For j:=1 to 5-i+1 do//елементов в каждой последующей строке становится на 1 меньше
If a[i,j]>max then max:=a[i,j];//если a[i,j] больше max то присваиваем max значение a[i,j]
 
For i:=1 to 5 do
begin
For j:=1 to 5 do
s:=s+IntToStr(a[i,j])+' ';//это для вывода массива
s:=s+#10#13;
end;
 
s:='Массив: '+#10#13+s+#10#13+'Максимальный елемент = '+IntToStr(max);//вывод максимального елемента
 
ShowMessage(s);//сам вывод
end;

For i:=1 to 5 do
For j:=1 to 5-i+1 do//елементов в каждой последующей строке становится на 1 меньше
If a[i,j]>max then max:=a[i,j];//если a[i,j] больше max то присваиваем max значение a[i,j]

For i:=1 to 5 do
For j:=5-(5-i) to 5 do//елементов в каждой последующей строке становится на 1 меньше
If a[i,j]>max then max:=a[i,j];//если a[i,j] больше max то присваиваем max значение a[i,j]

For i:=1 to 5 do
For j:=5-(5-i-1) to 5 do//елементов в каждой последующей строке становится на 1 меньше
If a[i,j]>max then max:=a[i,j];//если a[i,j] больше max то присваиваем max значение a[i,j]