Задача по олимпиаде - PascalABC.NET

Формулировка задачи:

Собственно это мой код .

Program Olymp;
var i,h,m,s,h1,m1,s1,hase,min,hou,sec,min1,hou1,sec1 : integer ; //h,s,m для первой прогонки h1,m1,s1 - для второй прогонки hase-case 
 
Begin
readln(hase); // значения касе
 
for i := 1 to hase do 
BEGIN
readln(h,m,s); // первый прогон
readln(h1,m1,s1); // второй прогон
//подсчет и сравнение
hou:= h*3600;
min:=m*60;
sec:=hou+min+s;
  hou1:=h1*3600;
  min1:=m1*60;
  sec1:=hou1+min1+s1;
  
  if sec=sec1 then
BEGIN
    writeln ('Case',i,': Yes');
    end
    else
    writeln ('Case',i,': No');
  
end;

end.

<- И он выводит вот так <- А надо вот так Помогите пожалуйста ! Всем заранее спасибо !

Решение задачи: «Задача по олимпиаде»

textual
                            Листинг программы 
                        

                            Program Olymp;
const a:array[boolean] of string[3]=('No ','Yes');
var 
  i,h,m,s,h1,m1,s1,hase: integer ;
  b:array[1..5000] of boolean;
Begin
readln(hase); // значения касе
for i := 1 to hase do 
BEGIN
  readln(h,m,s); // первый прогон
  readln(h1,m1,s1); // второй прогон
  b[i]:=h*3600+m*60+s=h1*3600+m1*60+s1;
end;
for i := 1 to hase do writeln('Case ',i,':',a[b[i]]); 
end.
                        