обработка символьных данных

[Olgaandsasha]

задание: Дано выражение. удалить из всех слов данного выражения все символы, не являющиеся буквами.
что то не так, не могу понять. или я вообще не правильно делаю? помогите.

Program lr1a;
var
 S1, S: string;
 i: Integer;
 begin
 writeln('введите выражение');
 readln(s);
 S1:='';
 for i:=1 to length(S) to
    begin if ord S[i] in [192..255];
             ord S[i] in [65..90];
             ord S[i] in [97..122] then
    S1:=S1+S[i];
    end;
 writeln('S1=',S1);
 readln;
end.

[whatever]

Не знаю на счет правильности множеств, но написать надо так:

if (ord(S[i]) in [192..255]) or (ord(S[i]) in [65..90]) or (ord(S[i]) in [97..122]) then

А вообще, смысл с ord'ами заморачиваться? Пиши просто

if S[i] in ['a'..'z','A'..'Z'] then

Update: хех, ну еще to на do замени :D

[Mad_Cat]

if (ord(S[i]) in [65..90,97..122,192..255])

[Olgaandsasha]

Спасибо огромное за помощь))