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

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. Я немножко перевыполнил) От показывает есть симаол или нет, если есть то сколько раз он входит и на какой позиции…