if schleife in einer konsohle

[justloosit]

hm ok wieder was gelernt aber i-wie funktioniert das nich recht so siehts zurzeit bei mir aus:

Delphi-Quellcode:

var a, b, c:integer;
strvar = readln();
begin
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Subtraktion, das Produkt');
writeln(', sowie die Division aus zwei Zahlen!');
writeln('Nun gib bitte deine erste Zahl ein.');
readln(a);
writeln('Deine erste Zahl ist also ',a,' gib nun bitte deine zweite Zahl an!');
readln(b);
writeln('Deine Zahlen sind also ',a,' und ',b,' möchtest du fortfahren?');
readln(strvar);
if strvar 'Yes' then
writeln('Deine beiden Zahlen sind also ',a,' und ',b,'');
writeln('die Summe der beiden Zahlen ist ',a+b,'');
readln;
end.