[fpc-pascal]Better Alternative to delay()

[George Patterson]

Hi all,

I am using the delay function to pause for an amount of time which works
but will not allow the user to stop the program from the console, using
ctrl-C. If I could trap the keystroke, I would be happy.

Excuse the indentation...

while not eof(sin) do
    begin
        repeat
           readln (sin, line);
 	   writeln (line);
	   //readln(input_text);
	   delay(250); //time is measured in milliseconds
	   input_text:='hello';
	   writeln(sout,input_text);
	until keypressed;
    end;
close (sin);


What is a better way to write that code snippet. The delay does not need
to be accurate (quarter of a second will not matter).. 

Thanks

George Patterson