Билетная касса, задача на рекурсию Опции

[1qsd]

Вот такая непонятная задача.

В очереди в кассу n человек (от 3 до 20). Про каждого известно, что
1) ему нужен один билет.
2) он должен купить билеты одного или двух стоящих за ним
3) дано время t1, t2, t2 покупки i-м очередником одного, двух или трех билетов.
Подсчитать минимальное время обслуживания очереди.

начало задачи есть (Ввод данных)

Program Bk;
uses crt;
var n,i,j,k: integer;
    t: array[1..20,1..3] of integer;
begin
  clrscr;
  writeln('Введите количество очередников:');
  readln(n);
  for i:=1 to n do
  begin
  writeln('Введите время ',i,' очередника ');
  for j:=1 to 3 do
  readln(t[i,j]);
  end;

  readln;
end.

а что делать дальше, не знаю...

Помогите решить пожалуйста!!

[klem4]

Надобно тестовые примеры, самому сочинять лень если честно, вот проверь это:

const
  n = 20;
  m = 3;

type
  TArray = array [1..n, 1..m] of Integer;

procedure ReadFromFile(const file_name: String;
 var arr: TArray; var size: Integer);
var
  f: Text;
begin

  assign(f, file_name);
  {$I-}
  reset(f);
  {$I+}

  if IOResult <> 0 then begin
    writeln('Cant open file'); readln; halt(1);
  end;

  size := 0;

  while not(eof(f)) do begin
    inc(size);
    read(f, arr[size, 1], arr[size, 2], arr[size, 3]);
    if not(eof(f)) then readln(f);
  end;

  close(f);

end;

procedure Print(const arr: TArray; const size: Integer);
var
  i, j: Integer;
begin
  for i := 1 to size do begin
    for j := 1 to m do write(arr[i, j]:3);
    writeln;
  end;
end;

function GetTime(A: TArray; size: Integer): Integer;
begin
  if size = 0 then GetTime := 0 else
   if (size >= 3) and (A[size, 3] < (A[size, 1] + A[size - 1, 1] + A[size - 2, 1])) then
    GetTime := A[size, 3] + GetTime(A, size - 3)
   else
    if (size >= 2) and (A[size, 2] < (A[size, 1] + A[size - 1, 1])) then
     GetTime := A[size, 2] + GetTime(A, size - 2)
    else
     GetTIme := A[size, 1] + GetTime(A, size - 1);
end;

var
  A: TArray;
  size: Integer;

begin
  ReadFromFile('ticket.txt', A, size);
  Print(A, size);
  writeln('Time = ', GetTime(A, size));
end.

тестировал на файле:

1 2 3
4 5 6
7 8 9
10 11 12

и

1 2 3
4 1 1
1 8 9
10 4 1