переполнение в процедуре вывода таблицы о сортировках

[SvetOk]

procedure PrintTable;
var
  len: array [1..3] of integer;
  d, i, j           :  integer;
  t: array [1..3,1..3] of integer;
  ar: array [1..8000,1..3] of DataType;

Begin
  writeln('Enter initial arrays length for comparing');
  readln(len[1]);
  writeln('Enter coefficient of lengths');
  readln(d);

  for i:=2 to 3 do
  	len[i]:=len[i-1]*d;
  
  for i:=1 to 3 do
  begin
  	ArLen:=len[i];
  	FillRandom;
  	for j:=1 to len[i] do
		ar[i,j]:=Arr[j]
  end;

  for i:=1 to 3 do
  begin
  	ArLen:=len[i];

  	for j:=1 to len[i] do
		Arr[j]:=ar[j,i];
	SetStartTime;
        SortBubble;
        t[1,i]:=WriteElapsedTime;
                 
	for j:=1 to len[i] do
		Arr[j]:=ar[j,i];
        SetStartTime;
        SortVstavki;
        t[2,i]:=WriteElapsedTime;
        
	for j:=1 to len[i] do
		Arr[j]:=ar[j,i];
        SetStartTime;
        SortQuick(1,Arlen);
        t[3,i]:=WriteElapsedTime;
	
  end;

  writeln('|  arrays lenght  |  bubble sort time  |  Vstavki sort  |  Quick sort  |');
  writeln('|     ',len[1],'     |      ',t[1,1],'       |      ',t[1,2],'   |   ',t[1,3],'    |');
  writeln('|     ',len[2],'     |      ',t[2,1],'       |      ',t[2,2],'   |   ',t[2,3],'    |');
  writeln('|     ',len[3],'     |      ',t[3,1],'       |      ',t[3,2],'   |   ',t[3,3],'    |');
End;

все процедуры сотрировок, замера времени и рандомный способ заполнения работают без переполения

[Stilet]

Этот отрезок программы ниочем не говорит.