Составить программу которая определяет есть ли во введенной строке заданный символ (,)

program zz1;

var s, ch:string; / / заводим переменные

k:integer;

begin

write ('введите строку');

readln (s); / / вводим строку с клавиатуры

write ('введите заданный символ ');

read (ch); / / вводим заданный символ

k:=pos (ch, s); / / находим позицию заданного символа в исходной строке

if k = 0 / / проверяем, если позиция заданного символа в строке равна нулю, то символа в строке нет и выводим ответ

then write ('заданного символа в исходной строке нету ') else write ('заданный символ в исходной строке есть ');

end.