if schleife in einer konsohle

[quendolineDD]

Kannst du bitte die Delphi-Tags setzen, damit dein Code lesbar wird?
Und es wäre hilfreich, wenn du uns mitteilst, was nicht funktioniert bzw. worin sich ein Fehler äußert.

Edit2:

Zeile 12 ist schonmal ein Fehler. Es müsste if strvar = 'Yes' then heißen. Die von der IF-Bedingung abhängigen Blöcke solltest du mit begin und end umgeben. Ansonsten ist nur die auf die IF-Abfrage folgende Zeile davon abhängig.