🚀 go-pugleaf

I am trying to make a software, where the user can put in some word, and the
program will look and see if the word(s) is in a wordlist file. Everything
is working pretty well, except this: The procedure is running in a recursive
way, that if you want to look up more than one word, you only put it in next
time you are asked. To exit this, you only have to input an empty string,
that is to press the ENTER key. And here is the trouble. The program will
not stop this looping, unless you enter several empty words.

Here is the snip of the program that is causing trouble:

procedure lookup;
begin
    writeln;
    write('please enter word to be looked up: ');
    readln( s ); { s : STRING; }
    if s = '' then exit; { this doesn't work,
                           unless running a couple of
    assign(f,'wordlist.dat'); reset(f);
    repeat
         read(f,t); { t : STRING }
         if t = s then found := true   else found := false; {found : BOOLEAN}
    until eof(f);
    close(f); {f : FILE OF STRING}
    if not found then begin
         writeln('the word ', s, 'is not found in the list');
         lookup;
      end;{if}
    writeln('the word ', s, ' is found in the list');
end;{ procedure lookup}

Begin
    { call a menu}
    Repeat read(keychoice) until keychoice in [#0 .. #255];
    { keychoice : CHAR }
    if keychoice = '1' then lookup;
    { call the menu}
    ...
end.

Hope anybody out there could help. It will be greatly appriciated.

regards,
Brian
times}
Net-Tamer V 1.11 - Test Drive