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

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.