Деление комплексных чисел

type
complex=record
im,re:real;
end;
Function compl(z1,z2:complex):real;
var
d,s,e,f:real;
begin
with z2 do begin
s:=re/im;
d:=im+s*re;
end;
with z1 do begin
e:=(re*s+im)/d;
f:=(im*s-re)/d;
end;
compl:=e+f;
end;
 
Function compl2(z1,z2:complex):real;
var
d,s,e,f:real;
begin
with z2 do begin
s:=im/re;
d:=re+s*im;
end;
with z1 do begin
e:=(im*s+re)/d;
f:=(im-re*s)/d;
end;
compl2:=e+f;
end;
var z1,z2:complex;
begin
writeln('Vvedite compleksnoe chislo 1 ');
writeln('Real part: ');
readln(z1.re);
writeln('Image part: ');
readln(z1.im);
writeln('Vvedite compleknoe chislo 2 ');
writeln('Real part: ');
readln(z2.re);
writeln('Image part: ');
readln(z2.im);
if abs(z2.re)<abs(z2.im) then
writeln(compl(z1,z2))
else
writeln(compl2(z1,z2));
end.

type compl=record
             re,im:real;
             end;
procedure Chastnoe(f,g:compl;var z:compl);
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;

procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:9:5,' -',-f.im:0:5,'i')
else writeln(f.re:9:5,' +',f.im:0:5,'i');
end;