Найти S - сумму элементов из заштрихованной области массива А

uses crt;
const n=9;
var a:array[1..n,1..n] of integer;
    sm:integer;
    i,j:byte;
begin
clrscr;
writeln('Исходная матрица:');
sm:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)+1;
    if ((j>=i)and(j<=n-i+1))or((j>=n-i+1)and(j<=i))then
     begin
      textcolor(12);
      write(a[i,j]:4);
      sm:=sm+a[i,j];
     end
    else
     begin
      textcolor(15);
      write(a[i,j]:4);
     end;
    end;
  writeln;
 end;
textcolor(15);
write('Сумма в заштрихованной области=',sm);
readln
end.

uses crt;
type mnoz=set of char;
var s:string;
    m:mnoz;
    i:byte;
begin
clrscr;
repeat
writeln('Введите строку из малых латинских букв, в конце точка');
readln(s);
if pos('.',s) in [0,1] then
writeln('В тексте нет точки, либо она первая! Повторите ввод.');
until pos('.',s)>1;
m:=[];
for i:=1 to pos('.',s)-1 do
if not(s[i] in m) then
 begin
  write(s[i],' ');
  m:=m+[s[i]];
 end;
readln
end.

var a:array[1..n,1..n] of real;
      sm:real;
....................................
a[i,j]:=10*random;
................................
write(a[i,j]:5:2);//2 раза