Найти количество слов на букву «А»

[Felonen]

Написать программу по блок схеме с помощью операции while и char

[newerow1989]

var a:string;
    k:integer;
begin
   k:=0;
   While true do
   begin
      Write('a := ');
      Readln(a);
      If a[1]='.' then
         Break;
      If a[1]='a' then
         Inc(k);
      If a[1]='A' then
         Inc(k);
   end;
   Writeln('k = ',k);
   Readln;
end.

[Felonen]

можно без string и inc

[digitalis]

Нужен посимвольный ввод, а не Readln, это я понимаю. Что то вроде:

var c:char;
begin
c:=readkey

А чем Inc так пугает ? Он же не кусается.
Inc (i) - это то же самое, что и i := i+1 ;
Впрочем, ТСу это уже не надо. Ему уже наскрибили.

[CMY_3]

  c1 := #32;
  while c<>'.' do begin
    read(c);
    if (c1 = #32) and ((c = 'A') or (c = 'a')) then inc(k);
    c1 := c;
  end;