Дан одномерный символьный массив.Сформировать новый массив,не включив в него элементы исходного массива,являющееся цифрами — Pascal(Паскаль)

uses crt;
var
b,c:array[1..50] of char;
i,n,kol:integer;
begin
readln(n);
for i:=1 to n do
begin
write('b[',i,']:=');
readln(b[i]);
end;
kol:=0;
for i:=1 to n do
if not (b[i] in ['1'..'9']) then
begin
inc(kol);
c[kol]:=b[i];
end;
writeln;
for i:=1 to kol do
begin
write(c[i]:3);
end;
readkey
end.