Задача: пользователь вводит с клавиатуры текст (набор символов), после чего ему предлогается подсчитать сколько раз встречается в данном тексте символ S. S вводится с клавиатуры.



Решение:
Подсчет заданного символа в тексте
?01 Uses Crt;
02 Var
03 tekst: String[30];
04 n,i: Integer;
05 s: String;
06
07 Begin
08 Writeln('Введите текст:');
09 Readln(tekst);
10 Write('Введите символ для подсчета: ');
11 Readln(s);
12 n:=0;
13 For i:=1 To Length(tekst) Do
14 If tekst[i]=s Then n:=n+1;
15 Write('В тексте символ ',s,' встречается ',n,' раз(а)');
16 Repeat Until KeyPressed
17 End.