 Borkborkk 
                                                27.09.2019 09:51
                                                
                                                Borkborkk 
                                                27.09.2019 09:51
                                             mogilevser 
                                                27.09.2019 09:55
                                                
                                                mogilevser 
                                                27.09.2019 09:55
                                             cristal37 
                                                27.09.2019 09:59
                                                
                                                cristal37 
                                                27.09.2019 09:59
                                             zhansaya77 
                                                09.04.2021 20:11
                                                
                                                zhansaya77 
                                                09.04.2021 20:11
                                             вико2006 
                                                09.04.2021 20:11
                                                
                                                вико2006 
                                                09.04.2021 20:11
                                             Кисик1705 
                                                09.04.2021 20:10
                                                
                                                Кисик1705 
                                                09.04.2021 20:10
                                             Ренаткрутой 
                                                09.04.2021 20:08
                                                
                                                Ренаткрутой 
                                                09.04.2021 20:08
                                             romatopovsky 
                                                09.04.2021 20:06
                                                
                                                romatopovsky 
                                                09.04.2021 20:06
                                            
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. Удачи