Создание модулей

uses crt;
type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:4:1,' -',-f.im:4:1,'i')
else writeln(f.re:5:2,' +',f.im:5:2,'i');
end;
procedure Proizvedenie(f,g:complex;var z:complex);
begin
z.re:=f.re*g.re-f.im*g.im;
z.im:=g.re*f.im+f.re*g.im;
end;
procedure Chastnoe(f,g:complex;var z:complex);
begin
z.re:=(f.re*g.re+f.im*g.im)/(sqr(g.re)+sqr(g.im));
z.im:=(f.im*g.re-f.re*g.im)/(sqr(g.re)+sqr(g.im));
end;
function Argument(f:complex):real;
begin
Argument:=arctan(f.im/f.re);
end;
function Modul(f:complex):real;
begin
Modul:=sqrt(sqr(f.re)+sqr(f.im));
end;
procedure Power(f:complex;n:integer;var t:complex);
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;
var a,b,c,x,y,z:complex;
begin
clrscr;
writeln('Введите действительную и мнимую части числа А:');
readln(a.re,a.im);
writeln('Введите действительную и мнимую части числа B:');
readln(b.re,b.im);
Power(a,3,x);
x.re:=x.re+1;
Power(b,2,y);
Proizvedenie(a,y,z);
z.re:=z.re-1;
Chastnoe(x,z,c);
writeln('Результат действий:');
write('C=');
Vyvod(c);
readln
end.