Если в строке количество пробелов больше, чем букв «а», то удалить каждый второй встречающийся пробел

uses crt;
var s: string;
 
function KolSimb (str: string; c: char): byte;
var i,k: byte;
begin
k:=0;
for i:=1 to length(str) do
    if str[i]=c then inc(k);
KolSimb:=k;
writeln(k);
end;
 
procedure DelProbel (var str: string);
var i,n,l: byte;
begin
n:=0; i:=1;
l:=length(str);
while i<=l do
      begin
      if str[i]=' ' then
         begin
         inc(n);
         if n mod 2=0 then
            begin
            delete(str,i,1);
            dec(l); dec(i);
            end;
         end;
      inc(i);
      end;
end;
 
begin
write('s='); readln(s);
if  KolSimb (s,' ')>KolSimb (s,'a') then DelProbel (s);
write('s=',s);
readln;
end.

uses crt;
var s: string;
 
function KolSimb (str: string; c: char): byte;  // функция нахождения количества символов, фактические параметры - строка, в которой искать и сомвл, который искать
var i,k: byte;
begin
k:=0;                             //изначально количество равно 0
for i:=1 to length(str) do        //в цикле с параметром перебираем символы строки
    if str[i]=c then inc(k);      //если символ соответствует указанному, увеличиваем счетчик
KolSimb:=k;                       //функции присваиваем значение полученное
writeln(k);
end;
 
procedure DelProbel (var str: string);   //процедура удаления пробелов, фактический параметр - строка
var i,n,l: byte;
begin
n:=0; i:=1;                             //n - счетчик пробелов (тк удалем только каждый второй) i-порядковый номер символа
l:=length(str);                         //длина
while i<=l do                           //пока не дойдем до конца строки в цикле с предусловием
      begin
      if str[i]=' ' then                //если символ - пробел
         begin
         inc(n);                        //увеличиваем счетчик символов
         if n mod 2=0 then             //если счетчик символов четен (это каждый второй символ)
            begin
            delete(str,i,1);           //удаляем символ из строки
            dec(l); dec(i);            //уменьшаем длину на 1, уменьшаем порядковый номер рассматриваемого символа на 1
            end;
         end;
      inc(i);                        //увеличиваем счетчик символов
      end;
end;
 
begin                                 //запрашиваем строку
write('s='); readln(s);
if  KolSimb (s,' ')>KolSimb (s,'a') then DelProbel (s);  //если количество пробелов, найденное с помощью функции, больше букв а, запускаем процедуру удаления пробелов
write('s=',s);
readln;
end.