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.