Сделал задачу, а она все равно не выполняет задания

[ВДПУ]

var radok:string;
i,L,kilk,kilk1,nom1,nom2:integer;
begin
writeln('Vvedit text:');
readln(radok);
L:=length(radok);
kilk:=0;kilk1:=0;
for i:=1 to L do
if radok[i]='а' then kilk:=kilk+1;
for i:=1 to L do
if radok[i]=' ' then
begin
kilk1:=kilk1+1;
if kilk1=1 then nom1:=i;
if kilk1=2 then nom2:=i;
end;
delete(radok,nom1,1);
delete(radok,nom2-1,1);
writeln('dovguna radka:',L);
writeln('kilkist bykv "a": ',kilk);
writeln(radok);
readln;
Условие: Вести строка символов. Определить длину строки и количество букв "а"в нем. Вывести данные без пропусков

[Alex11223]

  readln(str);
  len := length(str);
  for i:=1 to len do
     if str[i] = 'a' then c:=c+1;
  writeln(c, '   ', len);

Тут мин20 назад правильное решение именно этой задачи выкладывали, правда на украинском и в просьбе исправить фигурировал какой-то Иван Сергеевич)

[ВДПУ]

Спасибо, но я уже сам понял. Там все верно, просто оно считает символы, введенные латинскими символами