Ошибка 216 при проверке

uses crt;
type
   TElint = byte;
   TElelem = double;
   PTelem = ^TElelem;
   Tfile = file of TElelem;
   TLine = array[1..maxint div sizeof(TElelem)] of TElelem;
   PLine = ^TLine;
 
procedure test_manual(var x : byte; var posl: Pline );
var
 err,i:TElint;
 begin
   repeat
    writeln('Введите количество элементов последовательности');
    {$I-}
     readln(x);
    {$I-}
    err:=ioresult;
    if err<>0 then
       writeln('Ошибка ввода,попробуйте еще раз');
   until err=0;
   writeln('Последовательно вводите элементы матрицы');
   begin
     for i:=1 to x do
 
             begin
              repeat
                write('c[',i,']=');
                {$I-}
                  read (posl^[i]);
                {$I+}
                err:=ioresult;
                if err<>0 then
                   writeln('Вы ввели не целое положительное число или ввелли другой символ. Попробуйте еще раз.');
               until(err=0);
               readln;
              end;
      end;
    end;
 
var
  x:TElint;
  test:Pline;
begin
  returnnilifgrowheapfails := true;
  clrscr;
  test_manual(x,test);
  readln;
end.