Анаграммы

uses heaptrc, lineinfo, crt;
var s: text;
    i: integer;
    str, str1, str2: string;
    f: boolean;
    ch: char;
    b1, b2: array['А'..'я'] of integer;
 
   begin
   clrscr;
      i:=0;
      assign (s, 'slovar.txt');
      reset (s);
      while not eof(s) do
      begin
      readln (s, str);
      {i:=i+1;} //вот здесь ошибка exitcode 201, хотя во всех примерах так
      inc (i);
      end;
      close (s);
      writeln (i, 'strok');
      readln;
 
      for ch:='А' to 'я' do
         begin
            b1[ch]:=0;
            b2[ch]:=0;
         end;
      readln (str1);
      readln (str2);
      for i:=1 to length(str1) do
         inc(b1[str1[i]]);
         for i:=1 to length(str2) do
            inc(b2[str2[i]]);
            f:=true;
            for ch:='А' to 'я' do
               if b1[ch]<>b2[ch] then
               f:=false;
               if f then writeln ('yes')
               else writeln ('no');
               readln;
   end.

Assign(f,'slova.txt');Reset(f);{Открываем файл для чтения}
While not Eof(f) do {Пока не конец файла}
 Begin
  readln(f,st);{Из файла считываем строку в переменную st}
  {Тут сам поиск}
 End;

function Anagramma(s1,s2:string):boolean;

function Anagramma(s1,s2:string):boolean;
var s3,s4:string;
    f:boolean;
begin
if length(s1)<>length(s2)then f:=false
else
 begin
  s3:=s1;s4:=s2;
  f:=true;
  while(length(s3)>0) and f do
  if pos(s3[1],s4)>0 then
   begin
    delete(s4,pos(s3[1],s4),1);
    delete(s3,1,1);
   end
  else f:=false;
 end;
Anagramma:=f;
end;
const rz=[' ',',',';','.','!','?'];//разделители слов, добавить или убавить если нужно
var f,g:text;
    s,s1,s2:string;
    i,j,n:byte;
    b:boolean;
begin
writeln('Введите фразу:');
read(s);
assign(f,'slova.txt');
assign(g,'result.txt');
rewrite(g);
n:=length(s);
i:=1;
while i<=n do
if not(s[i] in rz)and((i=1)or(s[i-1] in rz)) then
 begin
  j:=i;
  s1:='';
  while(j<=n)and not(s[j] in rz) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  write(g,s1,': ');
  reset(f);
  b:=false;
  while not eof(f) do
   begin
    readln(f,s2);
    if Anagramma(s1,s2) then
     begin
      b:=true;
      if s2<>s1 then write(g,' ',s2);//если не нужно писать само слово, если оно есть в файле
     end;                            //иначе просто write(g,' ',s2);
   end;
  if not b then write(g,' нет анаграмм');
  writeln(g);
  close(f);
  i:=i+length(s1);
 end
else i:=i+1;
close(g);
write('Результат записан в файл result.txt')
end.