Задача на Паскале работа с текстовыми файлами.

[StudUL]

Дан текстовый файл. Латинские буквы из него поместить в текущем каталоге в файл file.lat, русские в file.rus, все остальные символы в file.oth

[Sazary]

Имя исходного файла - "ishod.txt"

program files;
var
fin,fr,fe,fo : text;
c : char;

begin
assign(fin,'ishod.txt');
reset(fin);
assign(fe,'file.lat');
rewrite(fe);
assign(fr,'file.rus');
rewrite(fr);
assign(fo,'file.oth');
rewrite(fo);

while not eof(fin) do
 begin
 read(fin,c);
 if ((ord(c)>=65) and (ord(c)<=90)) or ((ord(c)>=97) and (ord(c)<=122)) then
  write(fe,c)
 else if ((ord(c)>=192) and (ord(c)<=255)) then
  write(fr,c)
 else write(fo,c);
 end;
close(fin);
close(fr);
close(fe);
close(fo);
end.

[StudUL]

спасибо большое.

[StudUL]

Спасибо. Работает замечательно.