Просмотрщик текстовых файлов выдает ошибку "Ожидалось константное выражение" - Turbo Pascal

Program P7;
Uses CRT;
Var Inp, Outp : Text;
CurrLine, LineLen, ScrLen, I : Integer;
NStr : Integer; {Сколько строк экрана занимает строка вводного файла}
S : String; {В TP7 ограничение на длину строки 255 символов}
Answer: Char;
Const
S1 : Set of Char = [Chr(13), Chr(32)];
S2 : Set of Char = [Chr(27), 'q', 'Q'];
{ 13 -- Enter 27 -- Esc 32 -- Пробел}
Begin
LineLen := Lo(WindMax) + 1; {Длина строки экрана. Для TP7/DOS = 80}
ScrLen := Hi(WindMax) + 1;  {Количество строк на экране. = 25}
Assign(Inp, 'INPUT.TXT');
Assign(Outp, 'OUTPUT.TXT');
Reset(Inp);
ReWrite(Outp);
CurrLine := 1;
ClrScr;
ReadLn(Inp, S);
While Not Eof(Inp) Do Begin;
{Строка убирается на экране. Нижняя строка -- сообщение о продолжении}
If Length(S) = 0 Then NStr := 1
Else Nstr := (Length(S)+LineLen-1) div LineLen;
If (CurrLine > 1) And (NStr + CurrLine > ScrLen) Then Begin
Repeat
For I := CurrLine To ScrLen-1 Do WriteLn;
Write('Enter/Пробел - следующая страница, q/Esc - выход>');
Answer := ReadKey;
Until Answer in (S1 + S2); {Выход, когда введён допустимый символ}
If Answer in S2 Then Break; {Введён Esc, q или Q}
CurrLine := 1;
ClrScr;
End;
WriteLn(S);
CurrLine := CurrLine + NStr;
WriteLn(Outp, S);
ReadLn(Inp, S);
End;
WriteLn(Answer);
Write('Нажмите любую клавишу для продолжения');
Answer := ReadKey;
ClrScr;
Close(Inp);
Close(Outp);
 End.