Как прервать цикл в pascal определённой клавишей?

Question

[24r3]

Есть цикл выводящий текст, мне нужно что-бы при нажатии клавиши "стрелка в право" он останавливался.
Как это реализовать?
Например:

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

Доп вопрос: как заменить

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

аналогичным по смыслу выражением, но одной строкой как в C++?

cout<<"00 \n 00"

Answer 1

[Андрей]

1) Добавьте внутри цикла

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')