множество кажется Опции

[Richard]

Прошу помлщи в решение вот этой простой задачи:
Дан текстовый файл. Латинские буквы из него поместить в текущем каталоге в файл file.lat, русские – в file.rus, все остальные символы – в file.oth.
Так как меня небыло на том занятии где обьясняли как решать подобные задачи то я не знаю даже на что это задача. Мне хотябы пример побной задачи, а то незнаю что делать.

[Richard]

Вот обновленная версия

var
        ch:char;
        f:text;
        lat, rus, oth:file of char;

begin
Assign(f, 'file.txt');
Reset(f);
Assign(lat,'file.lat');
Rewrite(lat);
Assign(rus,'file.rus');
Rewrite(rus);
Assign(oth,'file.oth');
Rewrite(oth);
while not eof(f) do
        begin
                read(f, ch);
                if (ord(ch) in [65..90, 97..122]) then
                        write(lat,ch)
                else
                        if (ord(ch) in [192..223, 224..255,168,184]) then
                                write(rus,ch)
                else
                        write(oth,ch);
        end;
Close(f);
Close(lat);
Close(rus);
end.

Только он мне пишет 'Error in statement' и вот незнаю что это за ошибка