Вычислить сумму элементов матрицы в заштрихованной области

uses crt;
type matr=array[1..50,1..50] of real;
procedure Vvod(var x:byte;var m:matr);
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to x do
m[i,j]:=10*random;
end;
procedure Vyvod(x:byte;var m:matr);
var i,j:byte;
begin
writeln('Ishodnaya matrica:');
for i:=1 to x do
  begin
    for j:=1 to x do
    if ((j>=i)and(j<=x-i+1))
    or (j<=i)and(j>=x-i+1) then
      begin
       textcolor(12);
       write(m[i,j]:5:1);
      end
    else
      begin
       textcolor(15);
       write(m[i,j]:5:1);
      end;
    writeln;
  end;
end;
var a:matr;
    n,i,j:byte;
    s:real;
begin
clrscr;
randomize;
write('Razmer matricy n=');
readln(n);
Vvod(n,a);
Vyvod(n,a);
s:=0;
for i:=1 to n do
for j:=1 to n do
if ((j>=i)and(j<=n-i+1))
or (j<=i)and(j>=n-i+1) then
s:=s+a[i,j];
write('Summa=',s:0:1);
readln
end.

uses crt;
type matr=array[1..50,1..50] of integer;{тип матрицы}
procedure Vyvod(x:byte;var m:matr);{вывод матрицы на экран(размер, матрица)}
var i,j:byte;
begin
writeln('Ishodnaya matrica:');
for i:=1 to x do
  begin
    for j:=1 to x do
    write(m[i,j]:4);
    writeln;
  end;
end;
var a:matr;
    n,i,j,imx,jmx:byte;
    s,mx:integer;
begin
clrscr;
write('Razmer matricy n=');
readln(n);
writeln('Vvedite ',n*n,' elementov matricy:');
for i:=1 to n do
for j:=1 to n do
  begin
    write('a[',i,',',j,']=');{ввод делать с клавиатуры, рандомом не получится}
    readln(a[i,j]);
  end;
clrscr;{очистим экран от ввода}
Vyvod(n,a);{вывод}
for j:=1 to n do{смотрим столбцы по-порядку}
  begin
   mx:=a[1,j];imx:=1;{макс пока первый, его номер в строке=1}
   s:=0;{сумма=0}
   for i:=1 to n do{идем вниз по столбцу}
     begin
      s:=s+a[i,j];{суммируем}
      if a[i,j]>mx then
        begin
         mx:=a[i,j];{находим макс}
         imx:=i;{его номер в столбце=номеру строки}
        end;
     end;
    if mx>s-mx then writeln('Element a[',imx,',',j,']=',mx);
{если сумма без максимального меньше максимальношо, выводим элемент}
  end;
readln
end.