Сумма двух комплексных чисел

[Аким Ба]

uses crt;
type Compl=Object
r,m:real;
st:string;
procedure Chislo;
end;

procedure Compl.Chislo;
var s1:string;
cr,i:integer;
begin
i:=length(st)-1;
s1:='';
while(i>=1)and not(st[i] in ['+','-']) do
begin
s1:=st[i]+s1;
i:=i-1;
end;
s1:=st[i]+s1;
val(s1,m,cr);
s1:=copy(st,1,i-1);
val(s1,r,cr);
end;


var f:compl;
begin
clrscr;
writeln('vvedite konpleksnoe chislo');
readln(f.st);
f.Chislo;
writeln('Действительная часть=',f.r:0:5);
writeln('Мнимая часть=',f.m:0:5);
readln;
end.

Здравствуйте!
Мне нужно записать два комплексных числа в две строки, найти сумму действительной и мнимой частей этих чисел, и записать результат в виде комплексного числа в еще одну строку.
У меня есть код только для разложения одного числа на части...больше ничего не получается...
Помогите пожалуйста!