Создать модуль для работы с комплексными числами

unit kompl;
interface {раздел объявлений}
type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);{вывод чисел на экран}
function Modul(f:complex):real;{вычисление модуля}
function Argument(f:complex):real;{вычисление аргумента}
procedure Summa(f,g:complex;var z:complex);{сложение чисел}
procedure Power(f:complex;n:integer;var t:complex);{возведение в натуральную степень}
implementation{раздел описаний}
procedure Vyvod;
begin
if f.im<0 then write(f.re:7:1,' -',-f.im:5:1,'i')
else write(f.re:7:1,' +',f.im:5:1,'i');
end;
function Modul;
begin
Modul:=sqrt(sqr(f.re)+sqr(f.im));
end;
function Argument;
begin
Argument:=arctan(f.im/f.re);
end;
procedure Summa;
begin
z.re:=f.re+g.re;
z.im:=f.im+g.im;
end;
procedure Power;
var i:integer;
    m,a:real;
begin
m:=1;
for i:=1 to n do
m:=m*Modul(f);
t.re:=m*cos(n*Argument(f));
t.im:=m*sin(n*Argument(f));
end;
end.

uses crt,kompl;{подключаем модуль}
const n=5;
      m=6;
var a,b:array[1..n] of complex;{два массива}
    c:array[1..m,1..n] of complex;{матрица}
    i,j,k:byte;
begin
clrscr;
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  a[i].re:=5*random-2;
  a[i].im:=5*random-2;
  Vyvod(a[i]);
 end;
writeln;
writeln('Массив сумм соседних элементов:');
k:=0;
for i:=2 to n do
 begin
  k:=k+1;
  Summa(a[i],a[i-1], b[k]);
  Vyvod(b[k]);
 end;
writeln;
writeln;
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
   Power(a[j],i, c[i,j]);
   Vyvod(c[i,j]);
  end;
 writeln;
end;
readln
end.