На строке if выдаёт ошибку: ожидался порядковый тип

Program gr;

var s: string; gr1, i:integer;

begin

readln (s) ; gr1:=0; i:=1;

if s[i] in ['1' ... '10'] then

begin

gr1:=gr+1;

i:=i+1;

end;

end.

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;

Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль Program Programm; var n:string; a:integer; b:integer; c:integer; answer: integer; begin write ('Как вас зовут:') ; readln (n) ; writeln ('Привет, ', n,'!

можете объяснить за что отвечает xsearch? program c4; var n: integer; x, y: integer; xmin, xmax: integer; xsearch: boolean; ymin, ymax: integer; i: integer; s: real; begin xsearch : = true; xmin : = 0; xmax : = 0; ymin:=0; ymax : = 0; readln (n) ;

Функция для определения позиции буквы в слове, не могу найти ошибку. var slovo : string; i : integer; function ups (var s : string; ch : char) : integer; var i, n : integer; begin for i:=1 to length (s) do if s[i]=ch then n:=i else n:=0; ups:=n; end;

Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;