Исключить из файла все слова, написанные не на русском языке

uses crt;
var f,g:text;
    s:string;
    i:integer;
begin
clrscr;
assign(f,'text1.txt'); {открываем для чтения имеющийся файл с этим именем}
reset(f);
assign(g,'text2.txt');{открываем для записи новый файл}
rewrite(g);
while not eof(f) do {пока не конец файла text1}
  begin
   readln(f,s); {считываем по одной строке}
   for i:=length(s) downto 1 do {смотрим строку с конца, чтобы не сбить нумерацию при удалении элементов}
   if s[i] in ['A'..'Z','a'..'z']  {если английская буква}
   then delete(s,i,1); {удаляем ее}
   writeln(g,s); {записываем отремонтированную строку в новый файл}
  end;
close(f); {закрываем оба файла}
close(g);
write('Fail text1 perezapisan v fail text2!');
readln
end.

program mass;
uses crt;
const n=15; {Количество элементы}
type mas=array [1..n] of integer; {Описание массива}
var x,y:mas;  {описание переменых}
a,max,k,min,m,f,mm:integer;
d:real;
iy,i,j,imm,imax,imin:byte;
begin
  clrscr;   {Очистка экрана}
  randomize;   {составление и вывод массива}
   for i:=1 to n do {Цикл от 1 до n-го элемента}
    begin
     x[i]:=random(10)-4;
     write(x[i],' ');
    end;
    writeln;   {Проверить, является ли шестой положительный элемент числом, а если такого элемента нет – вывести сообщение}
    m:=0;   {количество ненулевых елементов}
    for i:=1 to n do {Цикл от 1 до n-го элемента}
     begin
      if x[i]<>0 then m:=m+1; {Подсчет ненулевых елементов}
if m=6 then {Выполнение условия}
Begin {поиск отрицательного числа}
if x[i]>0 then
begin
writeln(x[i],'>0');
             break     {выход из цикла}
            end
           else
            begin
             Writeln ('Такого числа нету (',x[i],')');
             break;   {выход из цикла}
            end;
            end;
         end;
{Поменять местами минимальный по модулю элемент и максимальный отрицательный элемент}
   max:=x[1];imax:=1;
    for i:=1 to n do   {Нахождение min эл-та}
     if abs(x[i])<abs(max) then
      begin
       max:=x[i];
       imax:=i;
      end;
      writeln;          {Вывод min эл-та}
      write ('imax=',imax,', ');writeln ('Max=|',max,'|');
      max:=x[1];imax:=1;
       for i:=2 to n do {Нахождение max  эл-та}
        begin
         if (x[i])<(min) then
          begin
           min:=x[i];
           imin:=i;
            end;
        end;
       k:=x[imin];    {Обмен местами min и max}
       x[imin]:=x[imax];
       x[imax]:=k;
       for i:=1 to n do
       write(x[i],' ');
       writeln;
      end.

program mass;
uses crt;
const rm=50;
type mas=array [1..rm] of integer;
var x:mas;
    max,min,f:integer;
    n,i,j,k,imax,imin:byte;
begin
clrscr;
randomize;
write('Введите размер массива n= ');
readln(n);
{Вводим массив}
writeln('Исходный массив:');
for i:=1 to n do
read(x[i]);
readln;
{ищем максимальный отрицательный и минимальный по модулю}
min:=10; max:=-5;imax:=1;imin:=1;
for i:=1 to n do
 begin
   if abs(x[i])<min then
     begin
       min:=x[i];
       imin:=i;
     end;
   if (x[i]<0)and(x[i]>max) then
     begin
       max:=x[i];
       imax:=i;
     end;
 end;
{Меняем местами максимальный и минимальный по условию}
f:=x[imin]; x[imin]:=x[imax]; x[imax]:=f;
{Убедимся что правильно}
writeln('Обмен элементами:');
for i:=1 to n do
write(x[i],' ');
writeln;
{Определяем шестой четный элемент}
k:=0;
for i:=1 to n do
if (x[i] mod 2=0)and(x[i]<>0) then
  begin
   k:=k+1;
   if (k=6)and(x[i]>0) then
     begin
      writeln('Шестой четный элемент положительный');
      readln;
      break;
     end
   else if (k=6)and(x[i]<=0) then
     begin
      writeln('Шестой четный элемент не положительный');
      readln;
      break;
     end;
  end;
if k<6 then  writeln('В массиве нет шести четных элементов');
{Удаление нолей}
i:=1;
while i<=n do
   begin
    if x[i]=0 then
      begin
        for k:=i to n-1 do
        x[k]:=x[k+1];
        n:=n-1;
      end
    else i:=i+1;
  end;
writeln('Массив без нолей:');
for i:=1 to n do
write(x[i],' ');
readln
end.