var s, b:string;
i, a:integer;
begin
s:='';
b:='';
writeln ('Введите слово, в котором надо убрать буквы а');
readln (s);
for i:=1 to length (s) do begin
if s[i] <> 'а' then b:=b + s[i]
else continue
end;
writeln (b);
end.
Все проверил на PascalABC. Удачи
var s, b:string;
i, a:integer;
begin
s:='';
b:='';
writeln ('Введите слово, в котором надо убрать буквы а');
readln (s);
for i:=1 to length (s) do begin
if s[i] <> 'а' then b:=b + s[i]
else continue
end;
writeln (b);
end.
Все проверил на PascalABC. Удачи