Двоичное дерево, Поиск по дереву

program ExperementsWithSearching;
const
   CorrectSymbols = ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я', 'ё', 'Ё', '0'..'9'];
type
 
   tPtr = ^tNode;
   tNode = record
      count : integer;
      key : string;
      left, right : tPtr;
   end;
   tTree = tPtr;
 
procedure Search(var T: tTree; var K: string; var Res: tPtr);
var
   Quit: boolean;
begin
   Quit := false;
   repeat
      if T = nil then
         Quit := true
      else if K < T^.Key then
         T := T^.left
      else if K > T^.Key then
         T := T^.right
      else
         Quit := true;
   until Quit;
   Res := T;
end;
 
procedure AssignFiles(Names : string; dict, inp, outp : text);
var
   i : Integer;
   dictName, inpName, OutpName : string;
begin
   i:=1;
   Names:= Names + ' ';
   While Names[i] <> ' ' do begin
      dictName:= dictName + Names[i];
      i:= i + 1;
   end;
   dictName:= 'c:\\Users\абвг\Desktop\' + dictName;
   assign(dict, dictName);
   i:=i + 1;
   while Names[i] <> ' ' do begin
      inpName := inpName + Names[i];
      i:= i+ 1;
   end;
   inpName:= 'c:\\Users\абвг\Desktop\' + inpName;
   assign(inp, inpName);
   i:= i + 1;
   while Names[i] <> ' ' do begin
      outpName := outpName + Names[i];
      i:= i + 1;
   end;
   outpName:= 'c:\\Users\абвг\Desktop\' + outpName;
   assign(outp, outpName);
end;
 
procedure AddToTree(var T: tTree; K: String);
begin
   if T = nil then begin
      new(T);
      T^.Key := K;
      T^.Count := 0;
      T^.Left := nil;
      T^.Right := nil;
   end
   else if (K = T^.key) then
      T^.count := T^.count + 1
   else if (K < T^.Key) then
      AddToTree(T^.Left, K)
   else if (K > T^.Key) then
      AddToTree(T^.Right, K);
end;
 
procedure PrintTree(t : tTree);
begin
   if t <> nil then begin
      PrintTree(t^.left);
      writeln(t^.key, ' ', t^.count);
      PrintTree(t^.right);
   end;
end;
 
var
   FileNames : string;
   dict, inp, outp : text;
   t : tTree;
   wordcount : integer;
 
procedure WriteAllWordsInTree(dict : text; t : tTree);
var
   wrd : string;
begin
   reset(dict);
   t := nil;
   while not eof(dict) do begin
      readln(dict, wrd);
      if (wrd <> ' ') or (wrd <> '') then
         AddToTree(t, wrd);
   end;
end;
 
procedure ClearUncorrectSymbols(inp: text; var outp : text);
var
   ch : char;
   s : string;
begin
   reset(inp);
   rewrite(outp);
   while not eof(inp) do begin
      while not eoln(inp) do begin
         read(inp, ch);
         if ch in CorrectSymbols then
            write(outp, Upcase(ch))
         else
            writeln(outp);
      end;
      readln(inp);
      writeln(outp);
   end;
   close(outp);
end;
 
procedure SearchWordInTree(outp: text; var t : tTree; var wordcount :integer);
var
   res : tPtr;
   wrd : string;
begin
   wordcount := 0;
   reset(outp);
   WriteAllWordsInTree(dict, t);
   while not eof(outp) do begin
      readln(outp, wrd);
         if wrd <> '' then begin
            wrd := UpperCase(wrd);
            Search(t, wrd, res);
               if res <> nil then
                  res^.count := res^.count +1;
         end;
   end;
   close(outp);
end;
 
procedure PrintTreeInFile(var outp :text; t : tTree; wordcount : integer);
var
   W: integer;
begin
   if T <> nil then begin
      W := abs(50 - length(T^.key));
      PrintTreeInFile(outp, T^.left, wordcount);
      writeln(outp, T^.Key , T^.count:w, '   ', (T^.count / wordcount)*100:3:2,'%');
      PrintTreeInFile(outp, T^.right, wordcount);
   end;
end;
 
begin
   assign(dict, 'C:\\Users\абвг\desktop\dict.txt');
   assign(inp, 'C:\\Users\абвг\desktop\dirt.txt');
   assign(outp, 'C:\\Users\абвг\desktop\OUTtext.txt');
   writeln('Statistics of files');
   writeln('Enter files <dictionary> <input> <output>');  
   writeln('for example : dict.txt f.txt stat.txt');
   {readln(FileNames);}
   {AssignFiles(FileNames, dict, inp, outp);}
   ClearUncorrectSymbols(inp, outp);
   SearchWordInTree(outp, t, wordcount);
   rewrite(outp);
   PrintTreeInFile(outp, t, wordcount);
   close(outp);
   if t = nil then
      writeln('VSEPROPALO');
end.