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.