var

s: string;

begin

write('Введите строчку: ');

readln(s);

while Pos('а', s) > 0 do

Delete(s, Pos('а', s), 1);

writeln('Полученная строчка = ', s);

readln;

end.