с клавиатуры вводится последовательность символов до тех пор пока не будет введен пробел требуется найти количество символов "a" во введенной последовательности

Написал так.. если введешь пробел сразу он просто выведет количество А = 0....вводится одна строка по Ентеру считает...ну в общем попробуешь..вводи строку на английской расскладке.

Еще один вариант:
var
  n:integer;
  s:string;
begin
while s<>' ' do
  begin
  readln(s);
  if s='a' then n:=n+1
  end;
writeln('Количество а: ',n);
end.