Pascal Abc. Вычисления с комплексными числами

[bublegoom]

Нужна помощь с комплексными числами. Можете подсказать,что нужно исправить в программе и что добавить,чтобы выводился результат. Очень нужно. Заранее спасибо!

Program CL;
type
tComplex = class
private
 x,y : real;
 
constructor create (a,b :real);
begin
 x:=a;
 y:=b;
end;
procedure Write (c:tComplex);
 begin
  writeln ('Введите комплексное число x+yi: ');
  case (c.y) of
    -1 : Write(c.x,' + ', Abs(c.y), 'i·');
     0 : Write(c.x);
    +1 : Write(c.x,' + ', c.y, 'i·');
  end;
 end;
procedure Writeln (c:tComplex);
 begin
 write('Комплексное число  ',c);
 end;
procedure PrintMod (a,b : tComplex);
 var a,b,M :real;
 begin
 M:= sqrt(a*a + b*b);
 writeln('Модуль комплексного числа равен: ', M);
 end;
procedure PrintArg( a,b : tComplex);
var a, b, Ar : real;
 begin
 if a>0 then
  Ar := arcTan (b/a)
 else
  if (a<0) and (b>0) then
   Ar := Pi + arcTan(b/a)
  else
   Ar := -Pi + arcTan(b/a);
writeln ('Аргумент комплексного числа равен:', Ar);


end.

[Serge_Bliznykov]

Жуть. Очень много косяков! ошибок выше крыши!
процедуру procedure Write (c:tComplex);
выкиньте ПОЛНОСТЬЮ!

вместо

procedure Writeln (c:tComplex);
 begin
 write('Комплексное число  ',c);
 end;

напишите примерно так:

procedure WritelnComplex (c:tComplex);
begin
 write('Комплексное число ', c.x:0:5, ' '); {выводим 5 знаков после десятичной запятой}
 if c.y=>0 then Write('+');
 WriteLn(c.y:0:5,'*i);
end;

хотя, думаю, что и это надо изменять, скорее всего это всё должны быть методы класса tComplex.

[bublegoom]

Это моя первая объектная программа старалась как могла
Спасибо за помощь, только может еще добавить в конец нужно?чтобы программа выводила результат. Я просто что-то не могу разобраться

теперь он выдает ошибку,что "Undefined FileName" не найден. Что делать?

Program CL;
type
tComplex = class
private
 x,y : real;
 
constructor create (a,b :real);
begin
 x:=a;
 y:=b;
end;

procedure WritelnComplex (c:tComplex);
begin
 write('Комплексное число ', c.x:0:5, ' '); {выводим 5 знаков после десятичной запятой}
 if (c.y)=>0 then Write('+');
 WriteLn(c.y:0:5,i);
end;
procedure PrintMod (a,b : tComplex);
 var a,b,M :real;
 begin
 M:= sqrt(a*a + b*b);
 writeln('Модуль комплексного числа равен: ', M);
 end;
procedure PrintArg( a,b : tComplex);
var a, b, Ar : real;
 begin
 if a>0 then
  Ar := arcTan (b/a)
 else
  if (a<0) and (b>0) then
   Ar := Pi + arcTan(b/a)
  else
   Ar := -Pi + arcTan(b/a);
writeln ('Аргумент комплексного числа равен:', Ar);
end;
end;
Var
x,y,a,b,M,Ar: real; 

begin
read(x,y);
c : new tComplex(x,y);
c.PrintMod;
c.PrintArg;

end.