Найти среднее арифметическое элементов нижней четверти комплексозначной матрицы

uses crt;
const nmax=7; {чтобы матрица вошла на экран по ширине}
type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);{вывод комплексного числа}
begin
write(f.re:5:1);
if f.im<0 then write(f.im:0:1,'i ')
else write('+',f.im:0:1,'i ');
end;
 
procedure Summa(var f:complex;g:complex);{сложение двух комплексных чисел}
begin
f.re:=f.re+g.re;
f.im:=f.im+g.im;
end;
 
var  a:array[1..nmax,1..nmax] of complex;
     n,i,j,k,m:byte;
     sr:complex;
begin
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив комплексных чисел:');
sr.re:=0;
sr.im:=0;
k:=0;
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;
    if (j<=i)and(j>=n-i+1) then
     begin
      textcolor(lightred);
      k:=k+1;
      Summa(sr,a[i,j]);
     end
    else textcolor(black);
    Vyvod(a[i,j]);
   end;
  writeln;
 end;
writeln;
sr.re:=sr.re/k;
sr.im:=sr.im/k;
textcolor(black);
write('Среднее значение в нижней четверти матрицы=');
Vyvod(sr);
end.

m:=1+trunc(n/2);
for i:= m to n do
for j:= n+1-i to i do
 begin
   smStrok1:=smStrok1 + (f);
   Elem:=Elem+1                  //элементы
 end;
 sa1:=smStrok1/Elem;

type complex=record
             re,im:real;
             end;

var k:array[1..2,1..n] of real;

type complex=record
             re,im:real;
             end;