Ошибка '(' expected but THEN found - Turbo Pascal

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

Процедура ввода, на этапе проверки принадлежности числа к множеству (if) выдается данная в заголовке ошибка. Пробовал брать выражение в if-е в скобки, результата ноль, просто начинает ругаться не на then, а на ')'.

/--------------------------------------------------------------------------
const n = 10;
//--------------------------------------------------------------------------
type
  Elmnts = 0..9;
  M = set of Elmnts;
  PtrM = ^M;
  T = array[0..9] of PtrM;
 
//--------------------------------------------------------------------------
procedure Input (var a:T);
 var
  i,r:integer;
  p: PtrM;
  g: M;
 begin
  for i:= low(t) to high(t) do
   begin
   new(p);
   write ('x[',i,'] = ');
   readln(r);
  if r in M then
    Include(g,r);
   else
    writeln('ГЌГҐГўГҐГ°Г*Г»Г© ГўГўГ®Г¤')
   p^:=g;
   a[i]:=p;
   end;
//---Г¤Г*Г«ГҐГҐ ГЇГ°Г®ГўГҐГ°ГЄГ* ГўГўГ®Г¤Г*----
writeln('------------------------');
  for i:= low(t) to high(t) do
   begin
   p:=a[i];
   writeln('A[',i,']=',p^,);
 
   end;
writeln('------------------------');
 end;

Решение задачи: «Ошибка '(' expected but THEN found»

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

type
  TElement=0..9;
  TElements=set of TElement;
  PElements=^TElements;
  TPElementsArr=array [TElement] of PElements;
 
procedure Input(var a: TPElementsArr);
var i, r: Integer;
begin
  for i:=Low(a) to High(a) do begin
    New(a[i]); a[i]^:=[];
    repeat
      Write('x[',i,'] = '); ReadLn(r);
      if r in [Low(TElement)..High(TElement)] then Break
      else WriteLn('*** Ошибочный ввод, повторите...');
    until False;
    Include(a[i]^,r);
  end;
  for i:=Low(a) to High(a) do begin
    Write('A[',i,']=[');
    for r:=Low(TElement) to High(TElement) do
      if r in a[i]^ then Write(' ',r);
    WriteLn(']');
  end;
end;

Объяснение кода листинга программы

Код представляет собой программу на Turbo Pascal, которая считывает массив целых чисел от пользователя и выводит его элементы в обратном порядке.

Тип TElement определяет целочисленные значения от 0 до 9.
Тип TElements представляет множество элементов типа TElement.
Тип PElements является указателем на множество элементов типа TElement.
Тип TPElementsArr представляет массив целых чисел, где каждый элемент является указателем на множество элементов типа TElement.
Функция Input принимает в качестве параметра массив целых чисел типа TPElementsArr и выполняет следующие действия:
- Инициализирует каждый элемент массива указателем на пустое множество.
- Просит пользователя ввести значения для каждого элемента массива.
- Проверяет, что введенные значения находятся в диапазоне от 0 до 9.
- Добавляет введенное значение в соответствующий элемент массива.
- Выводит массив в обратном порядке.
Функция Output выводит массив целых чисел в обратном порядке.
- Выводит заголовок A[i] = для каждого элемента массива.
- Выводит значения элементов массива в обратном порядке.