С клавиатуры вводят ряд и слово

Var c: Char; s: String; i,k,p: Integer; BeginReadLn (c); {Чтение заданного символа}ReadLn (s); {Чтение заданного слова}p: =Pos (c,s); {Определяем позицию символа}If (p=0) Then {Функция вернет 0, если символ не будет найден}WriteLn ('Такого символа в слове нет.') Else {Если символ есть, то … }BeginWriteLn ('Указанный символ расположен на позиции: ',p); k: =0; {k хранит количество вхождений}p: =Length (s); {p хранит длину строки (слова) }For i: =1 To p Do {Пробегаем по всем символам слова}If (s[i]=c) Then inc (k); {Если символ совпадает, увеличиваем на 1 переменную k}WriteLn ('Количество вхождений данного символа: ',k); End; End.