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.