Programation Avec Turbo Pascal

Bonjour,

Alors voila, je débute en pascal et je commence a comprendre le langage pascal et ses commandes bref maintenant j'essaye de faire un programme du genre:

program verber ;
uses wincrt ;
var
A : string[255] ;
begin
Writeln('give me your "IRREGULAR VERBE"');
read(A);
if
A=('awake')
then
Writeln('SIMPLE PAST : "awoke" / PAST PARTICIPLE : "awoken"');
if
A=('be')
then
Writeln('SIMPLE PAST : "was_were" / PAST PARTICIPLE : "been"');
if
A=('bear')
then
Writeln('SIMPLE PAST : "bore" / PAST PARTICIPLE : "born"');
if
A=('beat')
then
Writeln('SIMPLE PAST : "beat" / PAST PARTICIPLE : "beat"');
if
A=('become')
then
Writeln('SIMPLE PAST : "became" / PAST PARTICIPLE : "become"');
if
A=('begin')
then
Writeln('SIMPLE PAST : "began" / PAST PARTICIPLE : "begun"');
if
A=('bend')
then
Writeln('SIMPLE PAST : "bent" / PAST PARTICIPLE : "bent"');
end.

Mais voila mon problème en faisant tout sa il faut penser que je ne vais pas redemarer l'exécutable à chaque fois que je veut essayer avec un autre verbe j'ai entendu parler d'une commande "repeat" mais je ne sais pas trop comment faire alors si quelqu'un pourrait m'aider ça ne serais pas de refus. Merci d'avance