Дроби

[kliuzhik]

Помогите разобраться, Задание "Реализовать в виде модуля подпрограмму определения отношения дробей «больше или равна»". Выдает ошибку постоянно на строке "nat=1..high(longint);" Может быть это из-за того что паскаль ABC? Как можно решить эту проблему?

unit droby; 
interface
type
nat=1..high(longint);
frac=record
p:longint;
q:nat
end;
procedure summa(a,b:frac;var c:frac);
function bolshe(a,b:frac):boolean;
implementation
procedure summa; {сумма дробей}
begin
c.q:=(a.q*b.q); {знаменатель}
c.p:=a.p*b.q+b.p*a.q; {числитель}
end;
function bolshe; {1-я дробь больше 2-ой}
begin
bolshe;=a.p*b.q>b.p*a.q;
end;
begin;
end.

Основная программа, использующая модуль Droby:

Program sum_drob;
Uses crt;
Var a:array[1..100] of frac;
N,i:longing;
S:frac:
Begin
Writeln(`введите число элементов массива`);
Readln(n);
s.p:=0;s.q=1;
for i:=1 to n do
begin
write(`введите числитель`); readln(a[i].p);
write(`введите знаменатель`); readln(a[i].q);
summa(a[i],s,s);
end;
writeln(`сумма=`,s.p,`/`,s.q);
end.

[Stilet]

А зачем, если не секрет, тебе тут понадобились множества?

[kliuzhik]

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

А зачем, если не секрет, тебе тут понадобились множества?

Это пример который дали, на его основе надо сделать. А он у меня изначально не идет

[Stilet]

Фрипаскаль после того, как твою эту прогу почистить от синтаксических ошибок говорит что она работоспособная.
Так что тексты ошибок в студию.

[kliuzhik]

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

Фрипаскаль после того, как твою эту прогу почистить от синтаксических ошибок говорит что она работоспособная.
Так что тексты ошибок в студию.

Спасибо, сейчас попоробую на нем

[kliuzhik]

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

Фрипаскаль после того, как твою эту прогу почистить от синтаксических ошибок говорит что она работоспособная.
Так что тексты ошибок в студию.

Выдает ее не смотря ни на что

[Stilet]

Ну значит фтопку АЦБ.