var
s: string;
begin
write('Введите строчку: ');
readln(s);
while Pos('а', s) > 0 do
Delete(s, Pos('а', s), 1);
writeln('Полученная строчка = ', s);
readln;
end.
