Какой самый вместительный тип данных в delphi?

Данная задача является алгоритмом. Мы должны выстроить последовательность действий так,чтобы не остаться в проигрыше.

Цель: перевезти животных и капусту,так,чтобы никто из них не наведил друг другу. Перевозчик-это исполнитель(объект выполняющий действие)

1)Взять козу,переплыть,высадить.

2)Переплыть, взять волка,переплыть,высадить,взять козу,переплыть высадить.

3) Взять капусту, переплыть, высадить.

4)Переплыть,взять козу, переплыть,высадить.

5) Конец алгоритма(4 пункт является результатом последовательно выполненных действий)

Program pr;
uses crt;
Var N,M:array[1..15] of integer;
    i,kNp,kMp,kNo,kMo:integer;
Begin
kNp:=0;
kMp:=0;
kNo:=0;
kMo:=0;
Writeln('mas(N)');
for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],';') end;
Writeln;
Writeln('mas(M)');
for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],';') end;

for i:=1 to 15 do Begin
                  if N[i]>=0 then kNp:=kNp+1
                             else kNo:=kNo+1;
                  if M[i]>=0 then kMp:=kMp+1
                             else kMo:=kMo+1;
                  end;
Writeln;
Writeln('Кол-во положительных массива N=',kNp);
Writeln('Кол-во отрицательных массива N=',kNo);
Writeln('Кол-во положительных массива M=',kMp);
Writeln('Кол-во отрицательных массива M=',kMo);
readln;
end.