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

unit kompl;
interface
type complex=record
             r,m:real;
             end;
procedure Summa(f,g:complex;var z:complex);
procedure Razn(f,g:complex;var z:complex);
procedure Proizvedenie(f,g:complex;var z:complex);
procedure Chastnoe(f,g:complex;var z:complex);
function Modul(f:complex):real;
implementation
procedure Summa(f,g:complex;var z:complex);
begin
z.r:=f.r+g.r;
z.m:=f.m+g.m;
end;
procedure Razn(f,g:complex;var z:complex);
begin
z.r:=f.r-g.r;
z.m:=f.m-g.m;
end;
procedure Proizvedenie(f,g:complex;var z:complex);
begin
z.r:=f.r*g.r-f.m*g.m;
z.m:=g.r*f.m+f.r*g.m;
end;
procedure Chastnoe(f,g:complex;var z:complex);
begin
z.r:=(f.r*g.r+f.m*g.m)/(sqr(g.r)+sqr(g.m));
z.m:=(f.m*g.r-f.r*g.m)/(sqr(g.r)+sqr(g.m));
end;
function Modul(f:complex):real;
begin
Modul:=sqrt(sqr(f.r)+sqr(f.m));
end;
end.

uses crt,kompl;
procedure Vyvod(var f:complex);
begin
if f.m<0 then writeln(f.r:6:2,' -',-f.m:0:2,'i')
else writeln(f.r:6:2,' +',f.m:0:2,'i');
end;
const nmax=15;
var a:array[1..nmax] of complex;
    c:array[1..nmax] of real;
    z:complex;
    n,m,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив комплексных чисел:');
for i:=1 to n do
 begin
  a[i].r:=-5+10*random;
  a[i].m:=-5+10*random;
  Vyvod(a[i]);
 end;
writeln('Полученный массив модулей сумм рядом стоящих элементов:');
m:=0;
for i:=2 to n do
 begin
  Summa(a[i-1],a[i],z);
  m:=m+1;
  c[m]:=Modul(z);
  write(c[m]:8:2);
 end;
readln
end.