treba mi algoritam?help pilz

Code:
const
     r: string = '12345678618327453258647114862573315762481835247651638
                24774283615674253818426751337526841174685235472381687654321';
     t: array[1..8] of string = ('tim1','tim2','tim3','tim4','tim5','tim6','tim7','tim8');
var i,j: integer;
begin
     for i := 0 to 13 do
         begin
              writeln;
              writeln('kolo: ',i+1);
              for j := 1 to 4 do
                 writeln(t[ord(r[i*8+j*2-1])-ord('0')],'-',t[ord(r[i*8+j*2])-ord('0')]);
         end;
end.