Pascal/Turbo Pascal - programa de cartesianas y polares

Gracias a Diego por lo de VAR,jeje,ahora ya tengo los procedimientos para pasar de cartesianas a polares y viceversa,pero el progama no acaba ahi. Consiste en leer dos numeros complejos en polares o cartesianas,multiplicarlos y mostrar el resultado en polares. Supongo que para multiplicarlos habra que hacerlo en cartesianas, asi que primero le preguntare en que coordenadas esta el numero,
var
b:char;
x,y,r,a:real;
redultado:real;
begin
read(x);
read(y);
write(\'decir si el numero esta en coordenadas polares o cartesianas\');
read(a);
if a=polares
then polarcarte(x,y);{si esta en cartesianas multiplico directamente}
resultado:=x*y;
cartepolar(resultado);
end.

sería algo así,no?lo que pasa es que me lio poque cada numero tendra que tener 2 partes.En cartesianas c(parte real,parte imaginaria) y en polares(angulo,radio).Entonces en el ejercicio me dice que tengo que diseñar 2procedimientos para diseñar y leer complejos,es necesario?ya me diras si voy bien o mal encaminada

a mi parecer vas bien pero deberías investigar más formas aún

Saludosp