Описать тип записи комплексное число

type complex=record
             re,im:real;
             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:6:2,' +',f.im:0:2,'i');
end;
procedure Summa(f,g:complex;var z:complex);
begin
z.re:=f.re+g.re;
z.im:=f.im+g.im;
end;
procedure Raznost(f,g:complex;var z:complex);
begin
z.re:=f.re-g.re;
z.im:=f.im-g.im;
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;
var  a,b,c:complex;
     w:char;
begin
writeln('Введите действительную и мнимую части 1 числа:');
readln(a.re,a.im);
writeln('Введите действительную и мнимую части 2 числа:');
readln(b.re,b.im);
writeln('Выберите действие + - * /');
readln(w);
case w of
'+':begin
    Summa(a,b,c);
    write('A+B=');
    Vyvod(c);
    end;
'-':begin
    Raznost(a,b,c);
    write('A-B=');
    Vyvod(c);
    end;
'*':begin
    Proizvedenie(a,b,c);
    write('A*B=');
    Vyvod(c);
    end;
'/':begin
    Chastnoe(a,b,c);
    write('A/B=');
    Vyvod(c);
    end;
end;
end.