if schleife in einer konsohle

[Teekeks]

Delphi-Quellcode:

var a, b, c:integer;
strvar = readln();
begin
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Subtraktion, das Produkt'); 
{...}

müsste so aussehen:

Delphi-Quellcode:

var a, b, c:integer;
    strvar:string;
begin
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Subtraktion, das Produkt'); 
{...}