if schleife in einer konsohle

[Teekeks]

1.) nein so ist es nicht wirklich richtig.
Ich habe aber geade gesehen das du eigentlich nur eine If-Abfrage brauchst.
Also: Nach dem Readln(strvar); ein if strvar='no' then exit; {hier kommt das hinn was du ausführen möchtest wenn strvar='yes' ist} der befehl exit; beendet dein Programm wenn strvar='no' ist.

2.) Glaub mir: das ist Standardwissen was man können muss wenn man sich ernsthaft mit Delphi (in deinem Fall wohl eher Turbo Pascal (oder nicht?)) arbeiten möchte.