Помогите пожалуйста разобраться с условием, зачем Online? Что это значит? и вообще сам код после массива

program Project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils;
const
Q:array[0..34,0..1] of string=(('hi','hello'),
('it is a pity', 'I know('),
('shame on you','('),
('nice','^^'),
('hello','hi'),
('how are you','Great and you?'),
('what is your name','Kate'),
('ur name','Kate'),
('how old are you','I do not say it'),
('who is your creator','Marina Nesterova'),
('What things can you do','it depends. I can do anything you want'),
('do you love me','I love my creator'),
('do you want to talk with me','Yes, I do'),
('how','no matter'),
('what','what?'),
('when','tommorow'),
('why','I do not know'),
('where','There'),
('yes','Great'),
('no','OK'),
('do not know','you can find the answer'),
('of course','great'),
('actually','yeah'),
('what do you do','noting interesting, and you?'),
('i love you','My adorable :*'),
('could you help me','Sorry, I am busy'),
('can you help me','Yes, what do you want me to do?'),
('ok',':)'),
('bye','Goodbye'),
('goodbye','See you soon'),
('see you soon','Bye'),
('good night','Bye'),
('good evening','hello'),
('good morning','good morning'),
('me to','Great'));
var
Online,Ans:boolean;
s:string;
i:integer;
begin
Online:=true;
while Online do
begin

readln(s);
Ans:=false;
for i:=low(Q) to High(Q) do
begin
if s=Q[i,0] then
begin
writeln(Q[i,1]);
Ans:=true;
if i=2 then
Online:=false;
break;
end;

end;
if not Ans then
writeln('I do not understand you');
end;
readln;
end.

end.