Текстовый файл - поиск слова и добавление, если не найдено

[halo99]

Респект всем программистам!
Не могу понять чего еще не хватает в проге?????????????????????????????? ?
Нужно чтобы программа выполняла поиск слова в текстовом файле, если слово не найдено- добавляет его!

program search;
 uses CRT;
 const
 n=10;
 type
 TTable=array[1..n] of string;
 var
 f:file;
 tab:TTable;
 word:string;
 q:integer;
  procedure perebor(s:string ;var a:TTable;var len:integer);
 var
  i,k:integer;
 begin
  i:=1;
  k:=0;
   while(a[i]<>s)and(i<=len)do
 begin
   i:=i+1;
   k:=k=1;
 end;
   if (i>len)then
 begin
   if (len<n) then
 begin
   len:=len+1;
   a[len]:=s;
    writeln(s,len,k,len);
 end
    else
    writeln(s,k,len);
 end;
 end;
 begin
  clrscr ;
  assign (f, 'text.txt');
  reset (f);
  g:=0;
  while not eof (f) do
   begin
   readln (f,word);
   perebor (word, tab, g);
 end;
  close (f);
 readln;
end.

Подскажите пожалуста!(((


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[TinMan]

Сообщение от halo99

Нужно чтобы программа выполняла поиск слова в текстовом файле, если слово не найдено- добавляет его!

А какое слово ты собираешься искать? Ты его вводишь с клавиатуры?
А как файл организован? строки слов? какие разделители?
Ответь на это, плз, тогда посмотрим.

Но вообще, в твоей проге нечто странное написано.. Думаю, надо все переписать с нуля.