Составить программу на паскале, которая при выводе удаляла бы из строки текста цифры. нужно !

var

  a: string;

  i: integer;

begin

  writeln('Введите строку');

  readln(a);

  for i:= 1 to length(a) do

    if (a[i] = '1') or (a[i] = '2') or (a[i] = '3') or (a[i] = '4') or (a[i] = '5') or (a[i] = '6') or (a[i] = '7') or (a[i] = '8') or (a[i] = '9') then a[i]:= ' ';

  writeln(a);

end.

Программа заменяет цифры на пробелы.