Очень нужна помошь по Паскалю!!!(

Задача 1. Рассмотрим следующую задачу. Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над обыкновенными дробями вида P/Q (Р — целое, Q — натуральное):
1) сложение;
2) вычитание;
3) умножение;
4) деление;
5) сокращение дроби;
6) возведение дроби в степень N (N — натуральное);
7) функции, реализующие операции отношения (равно, не
равно, больше или равно, меньше или равно, больше, меньше).
Дробь представить следующим типом:
Type Frac=Record
Р: Integer; Q: 1..32767 End;
Используя этот модуль, решить задачу:
1. Дан массив А, элементы которого — обыкновенные дроби. Найти сумму всех элементов и их среднее арифметическое; результаты представить в виде несократимых дробей.

Unit Droby;
Interface Type
Natur=1..High(Longlnt);
Frac=Record
P: Longlnt;
Q: Natur
End;
Procedure Sokr(Var A: Frac);
Procedure Summa(A,B: Frac; Var C: Frac);
Procedure Raznost(A,B: Frac; Var C: Frac);
Procedure Proizvedenie(A,B: Frac; Var C: Frac);
Procedure Chastnoe(A,B: Frac; Var C: Frac);
Procedure Stepen(A: Frac; N: Natur; Var C: Frac);
Function Menshe(A,B: Frac): Boolean;
Function Bolshe(A,B: Frac): Boolean;
Function Ravno(A,B: Frac): Boolean;
Function MensheRavno(A,B: Frac): Boolean;
Function BolsheRavno(A,B: Frac): Boolean;
Function NeRavno(A,B: Frac): Boolean;

{Раздел реализации модуля}
Implementation
{Наибольший общий делитель двух чисел – вспомогательная функция, ранее не объявленная}
Function NodEvklid(А,В: Natur): Natur;
Begin
While A<>B Do
If A>B Then
If A Mod B<>0 Then A:=A Mod В
Else A:=B
Else If В Mod A<>0 Then B:=B Mod A
Else B:=A;
NodEvklid:=A
End;

{Сокращение дроби}
Procedure Sokr;
Var M,N: Natur;
Begin
If A. P<>0
Then
Begin
If A.P<0 Then M:=Abs(A.P)
Else M:=A.P; {Совмещение типов, т.к. А.Р -Longlnt}
N:=NodEvklid(M,A.Q); A.P:=A.P Div N; A.Q:=A.Q Div N
End
End;

Procedure Summa; {Сумма дробей}
Begin
{Знаменатель дроби}
C.Q:=(A.Q*B.Q) Div NodEvklid(A.Q,В.Q);
{Числитель дроби}
C.P:=A.P*C.Q Div A.Q+B.P*C.Q Div B.Q; Sokr(C)
End;

Procedure Raznost; {Разность дробей}
Begin
{Знаменатель дроби}
C.Q:=(A.Q*B.Q) Div NodEvklid(A.Q,В.Q);
{Числитель дроби}
C.P:=A.P*C.Q Div A.Q-B.P*C.Q Div B.Q; Sokr(C)
End;

Procedure Proizvedenie; {Умножение дробей}
Begin
{Знаменатель дроби}
C.Q:=A.Q*B.Q;
{Числитель дроби}
С.Р:=А.Р*В.Р;
Sokr(C) End;

Procedure Chastnoe; {Деление дробей}
Begin
{Знаменатель дроби}
C.Q:=A.Q*B.P;
{Числитель дроби}
C.P:=A.P*B.Q;
Sokr(С)
End;

Procedure Stepen; {Возведение дроби в степень}
Var I: Natur; Begin
C.Q:=1;
C.P:=1;
Sokr(A);
For I:=1 To N Do
Proizvedenie(А,С,С)
End;

Function Menshe; {отношение '<' между дробями}
Begin
Menshe:=A.P*B.Q<A.Q*B.P
End;

Function Bolshe; {отношение '>' между дробями}
Begin
Bolshe:=A.P*B.Q>A.Q*B.P
End;

Function Ravno; {отношение ' = ' между дробями}
Begin
Ravno:=A.P*B.Q=A.Q*B.P
End;

Function BolsheRavno; {отношение '>=' между дробями}
Begin
BolsheRavno:=Bolshe(А,В) Or Ravno(A,B)
End;

Function MensheRavno; {отношение '<=' между дробями}
Begin
MensheRavno:=Menshe(А,В) Or Ravno(A,B)
End;

Function NeRavno; {отношение 'о' между дробями}
Begin
NeRavno:=Not Ravno(A,B)
End;

{Раздел инициализации модуля}
Begin
End.
Сохраним текст разработанной программы в файле DROBY.PAS и откомпилируем наш модуль. Для этого можно воспользоваться внешним компилятором, поставляемым вместе с Турбо Паскалем. Команда будет выглядеть так: ТРС DROBY . PAS. Если в тексте нет синтаксических ошибок, получим файл DROBY.TPU, иначе будет выведено соответствующее сообщение с указанием строки, содержащей ошибку. Другой вариант компиляции: в меню системы программирования Турбо Паскаль выбрать Compile/Destination Disk, затем — Compile/Build.

Теперь можно подключить модуль к программе, где планируется его использование.
Решим первую задачу — выполним суммирование массива дробей.
Program Sum; Uses Droby;
Var A: Array[1..100] Of Frac; I,N: Integer; S: Frac;
Begin
Write('Введите количество элементов массива:');
ReadLn(N);
S.P:=0; S.Q:=1; {Первоначально сумма равна нулю}
For I:=l To N Do {Вводим и суммируем дроби}
Begin
Write('Введите числитель',I,'-й дроби:');
ReadLn(А[I].Р);
Write('Введите знаменатель ',1,'-й дроби:');
ReadLn(A[I].Q);
Summa(A[I],S,S);
End;
WriteLn('Ответ:',S.P,'/',S.Q)
End.

Я ввожу данную программу, а она выдает мне ошибку!!! Я не знаю почему она не работает. Буду благодарна, если вы мне поможете

0