Turbo PascalЗадание:Ввести ФИО как строчку.Определить количество вхождений символа а и длину

на free работает!
var
sur, sur1: string;
i, count, pz: byte;
begin
write ('Введите строчку: ');
readln (sur);
  for i:=1 to length (sur) do
     if sur[i] = 'a' then inc (count);
writeln ('Длина строчки : ', length(sur), ' знаков; кол-во "а": ', count);
sur1:=sur;
      for i:=2 to length (sur) do
               if (sur[i] = 'b') and (sur[i-1] = 'o') then
                begin;
                delete (sur1, i-pz, 1);
                inc (pz);
                end;
write ('Удалено ', pz, ' "b"; Новенькая строчка: ', sur1);
end.