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

var

slovo, simval:string;

i, k:integer;

begin

k:=0;

write ('Введите имя и фамилию ') ;

readln (slovo) ;

write ('Введите символ ') ;

readln (simval) ;

for i:=1 to length (slovo) do

begin

if slovo[i]=simval then k:=k+1;

if slovo[i]=simval then writeln (i,' ') ;

end;

if k>=1 then

writeln ('Да, встречается ', k,' раз, на позиции ', i) else writeln ('Нет') ;

end.

Я немножко перевыполнил) От показывает есть симаол или нет, если есть то сколько раз он входит и на какой позиции ...