Комплексная матрица. Экзамен.

uses crt;
const nmax=5;{больше по ширине на экран не войдет}
type complex=record {тип числа}
             re,im:real;
             end;
procedure Vyvod(var f:complex); {вывод на экран в форматированном виде}
begin
if f.im<0 then write(f.re:6:2,' -',-f.im:0:2,'i ')
else write(f.re:6:2,' +',f.im:0:2,'i ');
end;
 
var  a:array[1..nmax,1..nmax] of complex;
     n,i,j:byte;
     sr:complex;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив комплексных чисел:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j].re:=10*random-4;
    a[i,j].im:=10*random-4;
    Vyvod(a[i,j]);
   end;
  writeln;
 end;
writeln;
sr.re:=0;
sr.im:=0;
for i:=1 to n do
 begin
  sr.re:=sr.re+a[i,i].re+a[i,n-i+1].re;{дейс.часть элементов главной и побочной}
  sr.im:=sr.im+a[i,i].im+a[i,n-i+1].im;{мнимая часть}
 end;
if odd(n) then{если матрица нечетного размера, центральный элемент 2 раза}
 begin
  sr.re:=(sr.re-a[n div 2+1,n div 2+1].re)/(2*n-1);
  sr.im:=(sr.im-a[n div 2+1,n div 2+1].im)/(2*n-1);
 end
else {если четная, не пересекаются}
 begin
  sr.re:=sr.re/(2*n);
  sr.im:=sr.im/(2*n);
 end;
write('Среднее значение элементов главной и побочной диагонали=');
Vyvod(sr);
readln
end.