Текстовый файл содержит строчку, в которой есть российские и английские слова.

И опять - приятно, когда кратко))

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var w:=ReadAllText('in.txt'); w.Println;
  var s:=w.MatchValues('\b[A-Za-z]+\b').JoinIntoString(' ');
  s.Println; WriteAllText('Eng.txt',s);
  s:=w.MatchValues('\b[А-Яа-яЁё]+\b').JoinIntoString(' ');
  s.Println; WriteAllText('Rus.txt',s);
end.

Пример (читаем in.txt, пишем в Eng.txt и Rus.txt)
The Флегматичная ЭтА QuICk веРБлЮдица broWN ЖУЕТ fox JuMpS у подъезда over The ЗаСыХающИЙ LAZY Горьковатый dog шиПоВНиК

The QuICk broWN fox JuMpS over The LAZY dog

Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ Горьковатый шиПоВНиК