Дана строка текста. Слова разделены одним или несколькими пробелами. В тесте присутствуют точки и запятые. Написать программу обработки строки.В словах, содержащих больше двух букв «а», заменить все буквы «а» на «*» — Pascal(Паскаль)

program string2;

Uses CRT;

var
  stroka: string;
  posit, i, j, len: integer;

begin
  ClrScr;
  Writeln('Vvedite stroku ');
  Read(stroka);
  len := length(stroka);
  posit := 1;
  while posit0 do
  begin
    posit := pos('a', stroka);
    delete(stroka, posit, 1);
    insert('*', stroka, posit);
  end;
  Writeln('Posle obrabotki ');
  Writeln(stroka);
  readkey;

end.