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

[Richard]

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

[klem4]

var
  ch: char; 
// ...
// открываем для записи три файла lat, rus, oth и файл f для чтения.

while not(eof(f)) do begin
  read(f, ch);
  if (ch in ['A'..'Z', 'a'..'z']) then // добвяляем в файл латинских букв
   else if (ch in ['a'..'п', 'р'..'я', 'А'..'П', 'Р'..'Я']) then // добавляем символ в файл русских букв
    else // добавляем символ в файл остальных букв
end;

// закрываем все файлы

Файлы

зы возможно стоит внутри цикла сделать дополнительный (while not(eoln(f))) и читать символы в нем а после делать readln(f) ( переходить к след строке) чтобы не захватывать управляющие символы (но я не уверен)