How to break a loop in pascal with a specific key?

Question

Pascal

There is a loop that displays text, I need something to stop when the "arrow to the right" key is pressed.
How to implement it?
For example:

var go:boolean;
begingo
:=true;
while go=true do
begin
writeln();
writeln('00');
writeln('00');
sleep(100);
end;
end.

Additional question: how to replace

writeln('00');
writeln('00');

an expression similar in meaning, but in one line as in C ++?

cout << "00 \n 00"

Answer 1

1) Add inside the loop

if KeyPressed then 
   begin
   c:=ReadKey;
   if c=#0 then
      begin
      c:=ReadKey;
      if c=#77 then go:=False
      end
   end

2) writeln('00'+#13#10+'00')