Проверить наличие в слове заданного символа

if pos(ch,s)>0 then write('символ есть') else write('символа нет');

uses crt;
var s, sim:string;                   //s - переменная для слова , sim - переменная для символа
    i, k: integer;                 //ш - переменная для счетчика цикла,  k - переменная для количества символов в слове
begin
writeln ('Введите строку');       //запрашиваем
readln (s);                       //и записываем в память строку
writeln ('Введите символ');       //запрашиваем
readln (sim);                     // и записываем в память символ
k:=0;                             //изначально предполагаем, что символ в слове не встречается
     for i:=1 to length(s) do     //задаем цикл перебора символов слова от первого до последнего, номер которого равняется длине слова, определенного с помощью функции length
         if s[i]=sim then         //если выбранный символ слова совпадает с заданным символом, то
         k:=k+1;                  //увеличиваем количество символов на 1, и так до конца цикла
if k=0 then writeln ('Символ ',sim,' в слове не встречается')     //если количество символов = 0, символ в слове не встречается, о чем выводим на экран сообщение
else                              //иначе
writeln ('Символ ', sim,' встречается в слове ', k,' раз(а)');     //выводим на экран сообщение с количеством символов
end.