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


...
readln(c);
for i:=1 to length(s) do
if (s[i]=c) then begin inc(k); write(i,' '); end;

k - счетчик, i - номер позиции, с - символ с клавиатуры