Процедура ввода и вывода комплексного массива(с примером)

uses crt;
const m=3;n=3;k=3;l=3;
var i,j:integer;
a:array [1..m,1..n] of real;
b:array [1..n,1..m] of real;
c:array [1..k,1..l] of real;
begin
clrscr;
For i:=1 to m do
  for j:=1 to n do
 begin
   gotoxy(5*i+1,3*j+1);
   readln(a[i,j]);
 end;
For i:=1 to m do
  for j:=1 to n do
 begin
   gotoxy(5*i+30,3*j+1);
   readln(b[i,j]);
 end;
for i:=1 to k do
  for j:=1 to l do
    begin
    c[i,j]:=a[i,j]+b[i,j];
    gotoxy(5*i+12,3*j+10);
    writeln(c[i,j]:5:0);
    end;
    repeat until keypressed;
end.

uses crt;
const n=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;
 
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..n,1..n] of complex;
     i,j,k,m:byte;
     sr:complex;
begin
clrscr;
randomize;
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;
if n mod 2=0 then m:=n div 2
else m:=n div 2+1;
sr.re:=0;
sr.im:=0;
k:=0;
for i:=1 to n do
for j:=m+1 to n do
if (i<=m)and(j>=n-i+1)
or(i>m)and(j>=i) then
 begin
  k:=k+1;
  Summa(sr,a[i,j]);
 end;
sr.re:=sr.re/k;
sr.im:=sr.im/k;
write('Среднее значение в правой четверти матрицы=');
Vyvod(sr);
readln
end.