Problème de boucle dans un prog en pascal

Bonjour,

Voilà mon problème, je débute tout juste en programmation et j'ai un problème avec un petit programme que j'ai réalisé et que voici en résumé :

program qui_es_tu ;
uses crt ;
var prenom : string ;
var reponse : char ;
begin
repeat
clrscr ;
write('entrez votre prenom : ') ;
readln(prenom) ;
if prenom = 'gustave' then
begin
write('vous vous appelez justin tartenpion, vous avez 52 ans et bla bla bla ....') ;
readkey ;
end
else
if prenom = 'jeannette' then ;
{et on recommence exactement la meme sequence plusieurs fois jusqu' à}
...
else
write('vous etes inconnu de ce programme.') ;
readln ;
clrscr ;
write('continuez [o,n] ? : ') ;
read(reponse) ;
if reponse = 'o' then
continue
else
until reponse = 'n' ;

end.

Voilà... surement une horreur pour un specialiste mais j'apprends tout seul avec un tuto sur le net et c' est tout nouveau pour moi alors j'essaiede trouver les solutions que je peux memes si elles sont loin d'etre elegantes :) .
Bref voilà mon problème : tout se passe bien jusqu' à ce que je choisisse 'o' à la question continuez où là ca recommence bien mais à la suite de la phrase 'entrez votre prenom' j ai affiché 'vous etes inconnu de ce programme' alors que je voudrais qu' elle ne s affiche, bien entendu, que quand un prenom non repertorié est saisi.
j espere avoir été clair et merci par avance de votre aide ou simplement de vos remarque su ce petit programme qui pourrait m'aider à progresser.