Составить модуль в котором реализуются простые операции с комплексными числами и реализовать в основной программе ввод с клавиатуры и выполнять операции — Pascal(Паскаль)

program pr;
uses cmp;
var a,b,c:complex;
begin
writeln('BB 3Ha4eHu9I');
read(a.re,a.im,b.re,b.im);
writeln('UcxogHbIe 3Ha4eHu9I');
writeln('a.re=',a.re:4:1,'a.im=',a.im:4:1,'b.re=',b.re:4:1,'b.im',b.im:4:1);
writeln;
ADD(a,b,c);
writeln('Сложение:',c.re:5:1,c.im:5:1,'1');
SUB(a,b,c);
writeln('Вычитание:',c.re:5:1,c.im:5:1,'1');
MUL(a,b,c);
writeln('Умнодение:',c.re:5:1,c.im:5:1,'1');
DEL(a,b,c);
writeln('Деление:',c.re:5:1,c.im:5:1,'1');
readln;
readln;
end.

unit cmp;
interface
type complex=record
re,im:real;
end;
Procedure ADD(x,y:complex;var z:complex);
Procedure SUB(x,y:complex;var z:complex);
Procedure MUL(x,y:complex;var z:complex);
Procedure DEL(x,y:complex;var z:complex);
implementation
procedure ADD;
begin
z.re:=x.re+y.re;
z.im:=x.im+y.im;
end;
procedure Sub;
begin
z.re:=x.re-y.re;
z.im:=x.im-y.im;
end;
procedure Mul;
begin
z.re:=x.re*y.re-x.im*y.im;
z.im:=z.im*y.im-x.re*y.re;
end;
procedure Del;
var zz:real;
begin
zz:=sqr(y.re)+sqr(y.im);
z.re:=(x.re*y.re+x.im*y.im)/zz;
z.im:=(x.re*y.re+x.im*y.im)/zz;
end;
end.