Помогите исправить ошибку в задаче на использование модулей Паскаль

[Klubnic]

Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над комплексными числами:
1) сложения;
2) вычитания;
3) умножения;
4) деления;
5) модуля комплексного числа;
6) возведения комплексного числа в степень п (п — натуРальное).
комплексное число пРедставить следующим типом:
tyPe ComPlex=ReCoRd
R: Real;
m: Real
end;
используя этот модуль, Решить задачу.
дан массив а — массив комплексных чисел. получить массив с, элементами котоРого будут модули сумм Рядом стоящих комплексных чисел.

Вот мой код:

uses crt; {подключаем модуль для процедуры очистки экрана}
Type Complex=Record {Запись, описывающая комплексное число}
        R:real; {Действительная часть}
        M:Real; 
    end;
 
Var a: array [1..50] of Complex; {Массив чисел}
    c: array [1..50] of Real; {Массив модулей сумм}
    i, n: integer;
    tmp: Complex;
begin
    writeln ('N (<=50): '); {Ввод данных}
    repeat
                        readln (n);
                        if (n>50) then writeln ('N > 50!');
            until n<=50;
    writeln ('Elements: ');
    for i:=1 to n do
    begin
        readln (a[i].R);
        readln (a[i].M);
    end;
    clrscr; {Очистка экрана}
    for i:=1 to n do {Вывод входных данных}
        writeln (a[i].R:3:5, '+', a[i].M:3:5, 'i');
    for i:=1 to n-1 do {Идём по элементам}
    begin
        tmp.R:= a[i].R+a[i+1].R; {Считаем сумму}
        tmp.M:= a[i].M+a[i+1].M;
        c[i]:= sqrt (sqr (tmp.R)+sqr(tmp.M)); {Считаем модуль}
    end;
    writeln ('Result:'); {Выводим результат}
    for i:=1 to n-1 do
        writeln (c[i]:3:5);
             readln;
end.

Ошибка состоит в том что после ввода n<=50
Паскаль зависает на Elements:

[Serge_Bliznykov]

Первое. Это не модуль, это полноценная программа.

второе. что значит - зависает на Elements?
Она ждёт ввода N пар значений
Вы какое число указываете, когда Вас спрашивают

writeln ('N (<=50): ');

?

вот столько пар значений и вводите (причём вводить надо так:
действительную часть <Enter>
мнимую часть <Enter>

и повторить процедуру N раз.

[Klubnic]

Сообщение от Serge_Bliznykov

Первое. Это не модуль, это полноценная программа.

второе. что значит - зависает на Elements?
Она ждёт ввода N пар значений
Вы какое число указываете, когда Вас спрашивают

writeln ('N (<=50): ');

?

вот столько пар значений и вводите (причём вводить надо так:
действительную часть <Enter>
мнимую часть <Enter>

и повторить процедуру N раз.

Число 4. Спасибо, разобрался как работает