Есть большой текст, нужно определить на каком языке он написан по первым десяти буквам

const
eng: Set of char=['a'..'z' ,'A'..'Z'];
rus: Set of char=['а'..'я', 'А'..'Я'];
mn=['.',',','?','!','-'];
var
     i:byte;
     f1:text;
     p:real;
   k1,k2:integer;
s:char;
k,n:byte;
st,clovo,s1,t,ss:string;
res1, res2 :boolean;
begin
  assign(f1,'C:\Users\lkjh\Desktop\программа\задача.txt');
  reset(f1);
  while not eof(f1) do
        begin
           read(f1,t);
        write (s);
 
  for i := 1 to 10 do
  begin Res1 := True;
  Res2 := True;
   if Not(t[i] in rus) then
      Res2 := False;
     if Not(t[i] in eng) then
      Res1 := False;
 end;
  Write('Данный текст принадлежит к:', #9);
  if Res1 then
    Write('английскому языку' );
  if Res2 then
    Write('русскому языку');
  ReadLn;
 
      
Begin
for i:=1 to 10 do
begin
reset(f1);             {Открыть файл для чтения}
     readln(f1,ss);     {Считываем строку}
     ss:=lowercase(ss);
       writeln(s1);
  writeln('Bведите ключевое слово ');
readln(s1);
k:=0;//количество раз
for i:=1 to length(s) do//идем по строке
if(st[i]=s1[1])and((i=1)or(st[i-1] in mn))//если попалась первая буква слова, а перед ней   //разделитель, или она первая
and((st[i+length(s1)] in mn)or(i+length(s1)=length(st)+1))//и за словом разделитель или              //конец строки
and(copy(st,i,length(s1))=s1)//и все буквы совпадают
then k:=k+1;//считаем это слово
write('ключевое слово  ' ,s1  ,'  входит ',k,'раз(а)');
readln;
 
      
      
 begin
      reset(f1);
      read(f1,st);
     st:=st+' ';
     while Pos(' ',st)>0 do
     begin
          if Copy(st,1,pos(' ',st)-1)<>'' then inc (k);
          Delete(st,1,pos(' ',st));
     end;
      writeln ('Колличество слов: ', k);
 readln;
end;
 end;
close(f1);  end;   end;
End.