Комплексные числа с использованием модуля

unit cmplx
;
        interface
type
   complex=record
          re,Im:real;
         end;
procedure AddC(x,y:complex; var  z:complex);
procedure subC(x,y:complex; var  z:complex);
procedure mulC(x,y:complex; var  z:complex);
procedure divC(x,y:complex; var  z:complex);
procedure BblBodC(p:complex);
procedure absC(x,y:complex; var  z:complex);
        implementation
procedure BblBodC;
begin
if p.Im<0 then write(p.re,'-',-p.Im:9:5,'i')
 else
      writeln(p.re:9:5,'+',P.Im:9:5,'i');
 end;
 procedure AddC;
 begin
   z.re:=x.re+y.re;
   z.Im:=x.Im+y.Im;
 end;
 procedure subC;
 begin
   z.re:=x.re-y.re;
   z.Im:=x.Im-y.Im;
 end;
 procedure MulC;
 begin
   z.re:=x.re*y.re-x.Im*y.Im;
   z.Im:=x.re*y.im+x.Im*y.re;
 end;
 procedure DivC;
 var
   zz:real;
 begin
 zz:=sqr(y.re)+sqr(y.im);
 z.re:=(x.re*y.re+x.im*y.im)/zz;
 z.im:=(x.re*y.im-x.im*y.re)/zz;
 end;
 procedure absC;
 var
 f:real;
 begin
 f:= sqrt(sqr(z.re)+sqr(z.im));
 end;
 END.
 uses cmplx;
 var a,b,c:complex;
 begin
 writeln('ўўҐ¤ЁвҐ 1 Є®¬«ҐЄб*®Ґ зЁб«®:');
 read(a.re,a.im);
 readln;
 writeln('|A|=',absC(a):0:6);
 writeln('ўўҐ¤ЁвҐ 2 Є®¬«ҐЄб*®Ґ зЁб«®:');
 read(b.re,b.im);
 readln;
 writeln('|B|=',absC(b):0:6);
 addC(a,b,c);
 write('A+B=');
 BblBodC(c);
 mulC(a,b,c);
 write('A*B=');
 BblBod(c);
 divC(a,b,c);
 write('A/B=');
 BblBod(c);
readln;
 end.