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

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.

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