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

uses crt;
var a:array[1..6,1..6] of integer;
    i,j,min1,max1,min2,max2:integer;
 begin
  ClrScr;
  Randomize;
   for i:=1 to 6 do
    begin
     for j:=1 to 6 do
      begin
       a[i,j]:=random(20)-10;
       Write(a[i,j]:4);
      end;
     Writeln;
    end;
  min1:=0;
  max1:=1;
   for i:=1 to 6 do
    for j:=1 to 6 do
     if i=j then
      begin
       if a[i,j]>max1 then
        max1:=a[i,j];
       if a[i,j]<min1 then
        min1:=a[i,j];
      end;
    min2:=0;
    max2:=1;
     for i:=1 to 6 do
      for j:=1 to 6 do
       if i+j=6+1 then
       begin
        if a[i,j]>max2 then
         max2:=a[i,j];
        if a[i,j]<min2 then
         min2:=a[i,j];
       end;
   Writeln;
   Writeln('Сумма ',min1+min2+max1+max2);
  Readln;
 end.