to make your program not quit straight away and keep playing, start off with something simple like this:

[pascal]
program youprog;
var
quit : boolean;
quitStr: string;
begin
quit := false;
repeat



//your code here



writeln('Whould you like to play again? y/n');
ReadLn(quitStr);

if LowerCase(quitStr) = 'y' then //still quit if they have CAPs on
quit := true;

until quit = true;
writeLn('Good bye!')
end.
[/pascal]

---

I think {$CONSOLE} is a Delphi only thing. (I been caught out by this in Delphi a few times though, lol)