Не получается вычислить модуль комплексного числа - Pascal ABC

Формулировка задачи:

Необходимо вычислить модуль комплексного числа. вот собственно условие: Реализовать в виде отдельных модулей набор подпрограмм для выполнения следующих операций над комплексными числами: 1) сложение; 2) вычитание; 3) умножение; 4) деление; 5) вычисление модуля комплексного числа; 6) возведение комплексного числа в степень n (n – натуральное). Комплексное число представить следующим типом запись с полями R, M: Real; {действительная и мнимая часть чис-ла}.Найти модуль комплексного числа. Сам код программы

uses
 
  complex;
 
  const
  max_n     = 20;
 
var
  i, j: integer;
  m, n: integer;   z:tcomplex ;
 
  a: array[1 .. max_n] of tcomplex;

begin
  randomize;
 
   write('Kollichestvo kompleksnih chisel : '); readln(m);

  for i := 1 to m do
    with a[i] do begin
      re := random(9) - 9;
      im := random(9) - 9;
    end;
 
  writeln;
  writeln('Masiv A :');
  writeln;
 
  for i := 1 to m do begin
    PrintComplex(a[i]); writeln;
  end;
 
    Writeln('modul = ');
    Writeln;
    AbsComplex (a[i]);
 
    for i := 1 to m do begin
    PrintComplex(a[i]); writeln;
  end;

  writeln;
 
  write('Dlya vihoda nagmite knopky ...');
  readln;
end.

Подключаемый модуль:

unit complex;
 
interface
 
type
  tcomplex = record
    re, im: real;
  end;
 
function  AbsComplex(z: tcomplex): real;
 
procedure AddComplex(z1, z2: tcomplex; var res: tcomplex);
procedure SubComplex(a, b: tcomplex; var res: tcomplex);
 
procedure ScaleComplex(var z: tcomplex; c: real);
procedure MultComplex(z1, z2: tcomplex; var res: tcomplex);
function  DivComplex(a, b: tcomplex; var res: tcomplex): boolean;
procedure PowerComplex(z: tcomplex; var res: tcomplex; n: integer);
 
procedure PrintComplex(z: tcomplex);

implementation
 
function AbsComplex(z: tcomplex): real;
begin
  AbsComplex := sqrt(sqr(z.re) + sqr(z. im))
end;
 
procedure AddComplex(z1, z2: tcomplex; var res: tcomplex);
begin
  res.re := z1.re + z2.re;
  res.im := z1.im + z2.im;
end;
 
procedure SubComplex(a, b: tcomplex; var res: tcomplex);
begin
  res.re := a.re - b.re;
  res.im := a.im - b.im;
end;
 
procedure MultComplex(z1, z2: tcomplex; var res: tcomplex);
begin
  res.re := z1.re * z2.re - z1.im * z2.im;
  res.im := z1.re * z2.im + z1.im * z2.re
end;
 
procedure ScaleComplex(var z: tcomplex; c: real);
begin
  z.re := z.re * c;
  z.im := z.im * c
end;
 
function DivComplex(a, b: tcomplex; var res: tcomplex): boolean;
begin
  DivComplex := false; // False = error / True = Ok
  if (b.re = 0) and (b.im = 0) then exit
  else begin
    res.re := ((a.re*b.re)+(a.im*b.im))/((b.re*b.re)+(b.im*b.im));
    res.im := ((a.im*b.re)-(a.re*b.im))/((b.re*b.re)+(b.im*b.im));
  end;
end;

procedure PowerComplex(z: tcomplex; var res: tcomplex; n: integer);
var
  i: integer;
  T: tcomplex;
begin
  T := z;
  for i := 2 to n do begin
    MultComplex(T, z, T);
  end;
  res := T;
end;

procedure PrintComplex(z: tcomplex);
const
  sign: array[boolean] of char = ('-', '+');
begin
  write(z.re:6:1, sign[z.im > 0], abs(z.im):6:1, '*i');
end;

end.

Решение задачи: «Не получается вычислить модуль комплексного числа»

textual
                            Листинг программы 
                        

                            type
  tcomplex = record
    r, m: real;
  end;
                        