Переписать в другой файл строки, в которых нет латинских букв - Pascal ABC

Формулировка задачи:

//Переписать в другой файл строки, в которых нет латинских букв. Помогите пожалуйста!!

Код к задаче: «Переписать в другой файл строки, в которых нет латинских букв - Pascal ABC»

textual
uses crt;
var i:byte;
    s:string;
    f1,f2:text;
    p:boolean;
begin
 clrscr;
 assign(f1,'en.txt');
 assign(f2,'ru.txt');
 reset(f1);
 rewrite(f2);
 while not eof(f1) do
  begin
   readln(f1,s);
   p:=true;
   for i:=1 to length(s) do
   if s[i] in ['a'..'z','A'..'Z'] then p:=false;
   if p then writeln(f2,s);
  end;
 close(f2);
 close(f1);
 reset(f2);
 {----kontrolnoe chtenie-------}
 while not eof(f2) do
  begin
   readln(f2,s);
   writeln(s);
  end;
 close(f2);
end.

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ