Получить символы из главной и побочной диагонали. Найти сумму кодов этих символов

const n=7;m=7;
var
a,b,c:string;
i,j:byte;
sum: integer;
alf:array[1..n, 1..m] of string;
begin
randomize;
for i:= 1 to n do
for j:= 1 to m do
alf[i, j] := chr(random(64) + ord('А'));
write('Главная диагональ  ');sum:=0;
for i:=1 to n do 
for j:=1 to m do begin 
if (i=j) then write(alf[i,j]:2); end;writeln;
write('Побочная  диагональ  ');
for i:=1 to n do 
for j:=1 to m do begin 
if (i=n-j+1) then write(alf[i,j]:2);  end;writeln;writeln;
write('Массив');writeln; writeln;
for i:= 1 to n do
begin
for j := 1 to m do write(alf[i, j]:3);writeln
end end .

const
  n = 7;m = 7;
 
var
  a, b, c: string;
  i, j: byte;
  sum: integer;
  alf: array[1..n, 1..m] of char;
 
begin
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      alf[i, j] := chr(random(64) + ord('А'));
  write('Главная диагональ  ');sum := 0;
  for i := 1 to min(n, m) do
  begin
    sum := sum + ord(alf[i, i]);
    write(alf[i, i]:2);
  end;
  writeln;
  write('Побочная  диагональ  ');
  for i := 1 to min(n, m) do
  begin
    sum := sum + ord(alf[i, m - i + 1]);
    write(alf[i, m - i + 1]:2);
  end;
  
  writeln;writeln;
  write('Массив');writeln; writeln;
  for i := 1 to n do
  begin
    for j := 1 to m do write(alf[i, j]:3);writeln
  end;
  writeln;
  writeln('сумма кодов = ', sum);
  
end.