Pascal.задана последовательность символов, за которой следует точка (в саму последовательность точка не входит).напечатать текст, удалив из него все цифры.

Var  i,n : longint;  c   : array [1..100] of char;
begin 
  readln(n);
  for i:=1 to n do readln(c[i]);
  for i:=1 to n do
    if (c[i]<>'1')  and
       (c[i]<>'2') and
       (c[i]<>'3') and
       (c[i]<>'4') and
       (c[i]<>'5') and
       (c[i]<>'6') and
       (c[i]<>'7') and
       (c[i]<>'8') and
       (c[i]<>'9') and
       (c[i]<>'0')
     then writeln(c[i]);
end.