(код паскаль)дан текстовый файл. латинские буквы из него поместить в текущем каталоге в файл file.lat, – в file.rus, все остальные символы – в file.oth.

program lyonyshna; const      rus = ['а'..'я', 'а'..'я'];       lat = ['a''z', 'a'..'z']; var f,frus,flat,foth: text;       i: integer;       st,strus,stlat,stoth: string; begin      assign(f, 'file1.txt');       rewrite(f);       write('введите исходную строку: '); readln(st);       writeln(f,st);       close(f);       strus: ='';       stlat: ='';       stoth: ='';       reset(f);       assign(frus, 'russian.txt');       rewrite(frus);       assign(flat, 'latin.txt');       rewrite(flat);       assign(foth, 'other.txt');       rewrite(foth);       readln(f,st);       for i: =1 to length(st) do          if st[i] in rus then strus: =strus+st[i]              else                  if st[i] in lat then stlat: =stlat+st[i]                       else                          stoth: =stoth+st[i];       writeln(frus,strus);       writeln(flat,stlat);       writeln(foth,stoth);       writeln(' символы: ',strus);       writeln('латинские символы: ',stlat);       writeln('другие символы: ',stoth);       close(f); close(frus); close(flat);   close(foth); end.

неккоректный вопрос, уточните