Programma in pascal

[keratox]

Vorrei fare un programmino che fa i seguenti compiti:
-viene chiesta un'addizione di numeri casuali
-se questa è giusta viene incrementata una variabile, stampata a video

io pensavo a qualcosa del genere

PROGRAM pr;
USES crt;
VAR x1,y1,res,somma,b,b2:integer;
VAR a:text;
begin
     clrscr;
     randomize;
     textcolor(3);
     x1:=random(1000);
     y1:=random(1000);
     writeln('Quanto fa ', x1, ' + ', y1, ' ???');
     readln(res);
     somma:=x1 + y1;
     IF (res=somma) THEN
                  BEGIN
                  assign(a, 'C:\Programmi\Pascal\Ex\ciao.txt');
                  append(a);
                  reset(a);
                  read(a,b);
                  b2:= b+1;                         ]
                  write(a, b);
                  close(a);
                  END;
end.

premetto di non conoscere benissimo il pascal

[gokan]

Program somma_random

var
x1,y1,res,somma:integer;
b:integer; //variabile da incrementare
BEGIN
b:=0;
Randomize;
x1:=random(1000);
y1:=random(1000);

writeln('Quanto fa ', x1, ' + ', y1, ' ???');
readln(res);

somma:=x1 + y1;

if somma=res then b:=b+1;
write('b= ',b);
END

[keratox]

grazie
ma io vorrei che il programma non terminasse, come?

scusatemi ma sto imparando

[gokan]

Cosa vuoi dire con "non terminasse"?
Vuoi che ti venga posta sempre la domanda:

writeln('Quanto fa ', x1, ' + ', y1, ' ???');
readln(res);

Se si ti basta usare un ciclo while