Developing.ru

Есть программа которая может считывать текстовую информацию из заранее созданного файла. Но нужно еще чтобы она умела отсортироовывать слова и удалять те которые содержат хотябы один не латинский символ и выводить на экран отсортированный массив. Если кому не трудно. Помогите пожалуйста.

[syntax='Delphi']
var
f:text;
n:string;
begin
writeln('Soderjimoe faila');
assign(f,'c:\1.txt');
reset(f);
while not EOF(f) do
begin
readln(f,n);
writeln(n);
end;
close(f);
readln;
end.[/syntax]

Я тебе могу только подсказать использовать ORD('<буква>') коды англ и рус букв лежат в определенных диапазонах. Напиши дополнительную функцию которая бы проверяла букву и воткни в сортировку...
Код русской а =224 и т.д.
Код англ a = 97 и т.д...

ShowMessage(intTostr(ord('a')));