Комплексные числа. Действительная и мнимая часть числа. Типы данных

type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:6:2,' -',-f.im:0:2,'i')
else writeln(f.re:6:2,' +',f.im:0:2,'i');
end;
function Sum(f,g:complex):complex;
begin
result.re:=f.re+g.re;
result.im:=f.im+g.im;
end;
function Raz(f,g:complex):complex;
begin
result.re:=f.re-g.re;
result.im:=f.im-g.im;
end;
function Umn(f,g:complex):complex;
begin
result.re:=f.re*g.re-f.im*g.im;
result.im:=g.re*f.im+f.re*g.im;
end;
function Del(f,g:complex):complex;
begin
result.re:=(f.re*g.re+f.im*g.im)/(sqr(g.re)+sqr(g.im));
result.im:=(f.im*g.re-f.re*g.im)/(sqr(g.re)+sqr(g.im));
end;
var  z1,z2,z11,z21,z,w:complex;
begin
writeln('Введите действительную и мнимую части числа Z1:');
readln(z1.re,z1.im);
writeln;
writeln('Введите действительную и мнимую части числа Z2:');
readln(z2.re,z2.im);
z.re:=1;
z.im:=0;
w:=Del(Sum(Umn(z1,Umn(z1,z1)),z),Raz(Umn(z1,Umn(z2,z2)),z));
write('w=');
Vyvod(w)
end.