Дана строка. Удалить все символы «а». Использовать рекурсивную процедуру - PascalABC.NET

procedure p(var s: string; c: char);
begin
  if pos(c, s) = 0 then exit;
  delete(s, pos(c, s), 1);
  p(s, c);
end;
 
// вызывать так:
  p(s, c);
  writeln(s);