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

[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) ( переходить к след строке) чтобы не захватывать управляющие символы (но я не уверен)

[Richard]

Вот начало программы

Program files;
var
ch:char;
f:text;
lat:file of char;
rus:file of char;
oth:file of char;
begin
assign(f, 'file.txt'); 
reset(f);
assign(lat,'file.lat');
rewrite(lat);
assign(rus,'file.rus');
rewrite(lat);
assign(oth,'file.oth');
rewrite(oth);
while not(eof(f)) do begin
  read(f, ch);
  if (ch in ['A'..'Z', 'a'..'z']) then write(lat,ch);

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

[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' и вот незнаю что это за ошибка

[volvo]

Только он мне пишет 'Error in statement'

Где именно ОН (и кто это - ОН) пишет такую ошибку? У меня в TP 7.0 все прекрасно компилируется...