Паскаль абц выдаёт ошибку «Встречено 'IOResult', а ожидалось then»

паскаль абц выдаёт ошибку "Встречено 'IOResult', а ожидалось then"
Program LAB_3_1;
Uses CRT;
Var
i :Byte;
n :Integer;
s,x :Real;
flag :Boolean;
Begin
Repeat
ClrScr;
Writeln('Вычислить значение суммы ряда (x+i)/x^2');
Writeln;
{$!-}
Write('Задайте аргумент x=');
Readln(x);
Write('Задайте длину ряда n=');
Readln(n);
Writeln;
If I IOResult <> 0 then
Begin
Textcolor(LightRed);
Write('Ошибка! Нажмите Enter и введите значение заного.');
Textcolor(lightGray);
Readkey; {read игнорит, с readkey работает на 5+}
end
else
flag:=true;
Until flag = true;
Write('Ошибок нет. Нажмите Enter для продолжения.');
Readln;
Textcolor(LightGray);
s:=0;
For i:=0 to n-1 do {Т.к. цикл начинается с 0, то заканчивается n-1}
s:=(x+i)/(x*x)+s;{Чтобы вычислял n раз.}
Writeln('Сумма ряда равна s=',s:0:2);
Readln;
End.

  • > If I IOResult <> 0 then
    Лишний символ I