задачa на чар в паскале.

[Crabsid]

Водится текст. Конец ввода "!". Найти количество букв "К".

[b2soft]

readln(str);
for i:=1 to Length(str) do
begin
if str[i]='K' then count:=count+1;
if str[i]='!' then break;
end;
writeln(count);

[Serge_Bliznykov]

var Count : integer;
   ch : char;
begin
  Count := 0;
  repeat
    Read(ch);
    if ch='K' then inc(Count);
  until ch='!';
  WriteLn('Found ',Count,' matches.');
end;