Работа с комплексными числами

[Аким Ба]

Unit ch;
interface
type
compl=Object
r,m:real;
st:string;
function Dei(stre:string):real;
function Mni(stim:string):real;
end;
implementation
Function compl.Dei(stre:string):real;
var re:string;
cr:integer;
begin
st:=stre;
if pos('+',st)>1 then
begin
re:=copy(st,1,pos('+',st)-1);
val(re,r,cr);
dei:=r;
end;
if pos('-',st)>1 then
begin
re:=copy(st,1,pos('-',st)-1);
val(re,r,cr);
dei:=r;
end;
if pos('-',st)=1 or pos('+',st) then
begin
delete(st,1,1);
re:=copy(st,1,pos('-',st)-1);
val(re,r,cr);
dei:=r*(-1);
end;
if pos('-',st)=1 or pos('+',st) then
begin
delete(st,1,1);
re:=copy(st,1,pos('+',st)-1);
val(re,r,cr);
dei:=r*(-1);
end;
end;
function compl.Mni(stim:string):real;
var im:string;
cm:integer;
begin
st:=stim;
if pos('+',st)>1 then
begin
im:=copy(st,pos('+',st)+1,(pos('i', st)-pos('+',st))-1);
val(im,m,cm);
Mni:=m;
end;
if pos('-',st)>1 then
begin
im:=copy(st,pos('-',st)+1,(pos('i',st)-pos('-',st))-1);
val(im,m,cm);
Mni:=m;
end;
if pos('+',st)=1 then
begin
delete(st,1,1);
im:=copy(st,pos('+',st)+1,(pos('i', st)-pos('+',st))-1);
val(im,m,cm);
Mni:=m;
end;
if pos('+',st)=1 then
begin
delete(st,1,1);
im:=copy(st,pos('-',st)+1,(pos('i',st)-pos('-',st))-1);
val(im,m,cm);
Mni:=m;
end;
if pos('-',st)=1 then
begin
delete(st,1,1);
im:=copy(st,pos('+',st)+1,(pos('i', st)-pos('+',st))-1);
val(im,m,cm);
Mni:=m;
end;
if pos('-',st)=1 then
begin
delete(st,1,1);
im:=copy(st,pos('+',st)+1,(pos('i', st)-pos('+',st))-1);
val(im,m,cm);
Mni:=m;
end;
end;
end.

Program ggg;
uses ch;
var f:compl;
stt:string;
sh:integer;
begin
writeln('vvedite konpleksnoe chislo');
readln(stt);
writeln('viberite deistvie');
writeln(' 1-vivesti deistvitelnuu chast');
writeln(' 2-vivesti mnimuu chast');
readln(sh);
if sh=1 then
writeln(f.dei(stt):5:2);
if sh=2 then
writeln(f.Mni(stt):5:2);
readln;
end.

Здравствуйте!
Дан объект. В нем дана строка, в которую записывается комплексное число. Нужно вывести на экран вещественную и мнимую часть числа! Нужно рассмотреть два варианта, когда перед перед вещественной частью есть знак + или -( например -8-8i) и когда его нет (8+8i)! Следовательно будет 6 вариантов!
Проблема:При выводе вещественной не работает случай +8+8i (когда два +), при выводе мнимой части не работает совсем ничего...
Помогите пожалуйста! Что именно я делаю не правильно?? И как лучше сделать?