Листинг программы

program z33;

{ Определить номера позиций и кол-во повторений

 запрашиваемого символа в строке введённой с клавиатуры}

uses crt;

var i,l,kol:longint;a,aa:string;

 begin

  clrscr;textcolor(11);

   write('введите текст: ');readln(a);

   write('введите символ: ');readln(aa);

   if length(aa)>1 then halt;l:=length(a);

   for i:=1 to l do

    if a[i]=aa then

     begin

      inc(kol);write(' ',i);

     end;

   writeln('');write(' кол-во символов: ',kol);

  readln;

 end.