[ViNT]

Нужно сделать что-то типа

type //Тип, описывающий комплексное число
  CPLX=record
    Re:Real;
    Im:Real;
  end;

function Add(C1,C2:CPLX):CPLX; //Функция сложения
var
  T:CPLX;
begin
  T.Re:=C1.Re+C2.Re;
  T.Im:=C1.Im+C2.Im;
  Result:=T;
end;

И далее в том же духе другие функции.

i при вычислениях опускаем, но при выводе результата не забываем его написать.