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.

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