Решите пожалуйста, очень нужно!

program p_1; 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 ('Нет'); writeln; end.