Ошибка времени выполнения: Индекс находился вне границ массива - PascalABC.NET (121173)

type
  matrix=array of array of real;
  vector=array[0..4] of real;
var
  f: text;
  arr: array [0..19, 0..4] of real;
  k1: matrix;
  k2: matrix;
  file_i, file_j: integer;
  initial_KK: real;
  
function MassCenter(klass: matrix): vector;
begin
  var summa:real:=0;
  for j: integer := 0 to klass.GetLength(1)-1 do begin
    for i: integer := 0 to klass.GetLength(0)-1 do begin
      summa:=summa+klass[i,j];
    end;
    result[j]:=summa/klass.GetLength(0);
    summa:=0;
  end;
end;
 
function Rasseivanie(klass: matrix):real;
begin
  var r:real:=0;
  var sum:real:=0;
  for i: integer := 0 to klass.GetLength(0)-1 do begin
    for j: integer := 0 to klass.GetLength(1)-1 do begin
      r:=r+sqr(MassCenter(klass)[j]-klass[i,j]);
      end;
    sum:=sum+r;
    r:=0;
  end;
  result:=sum/klass.GetLength(0);
end;
 
function Krit_Komp(klass1,klass2:matrix):real;
begin
  result:=(Rasseivanie(klass1)+Rasseivanie(klass2))/2;
end;
 
function Range(index: integer; klass: matrix):real;
begin
  result:=0;
  for j: integer := 0 to klass.GetLength(1)-1 do begin
    result:=result+sqr(klass[index,j]-MassCenter(klass)[j])
  end;
  result:=sqrt(result);
end;
 
function Rebel(klass:matrix):integer;
begin
  var max_int: integer;
  var max_range: real = 0;
  var r:real:=0;
  for i: integer := 0 to klass.GetLength(0)-1 do begin
    for j: integer := 0 to klass.GetLength(1)-1 do begin
      r:=r+sqr(MassCenter(klass)[j]-klass[i,j]);
      end;
    if (sqrt(r)>max_range) then begin
      max_range:=sqrt(r);
      max_int:=i;
    end;
    r:=0;
  end;
  result:=max_int;
end;
 
function Rebel_In_1st_klass(klass1,klass2:matrix):boolean;
begin
  if (Range(Rebel(klass1),klass1)>(Range(Rebel(klass2),klass2))) then
    result:=true
    else result:=false;
end;
 
procedure vector_move(index:integer; klass1,klass2:matrix);//из klass1 в klass2
begin
  SetLength(klass2,klass2.GetLength(0)+1);
  for j: integer := 0 to klass2.GetLength(1)-1 do begin
    klass2[klass2.GetLength(0)-1,j]:=klass1[index,j];
  end;
  for i: integer := index to klass1.GetLength(0)-2 do begin
    for j: integer := 0 to klass1.GetLength(1)-1 do begin
      klass1[i,j]:=klass1[i+1,j];
    end;
  end;
  SetLength(klass1,klass1.GetLength(0)-1);
end;
      
begin
  AssignFile(f, 'c:\1.txt');
  Reset(f);
  file_i := 0;
  while not Eof(f) do begin
    file_j := 0;
    while not Eoln(f) do begin
      Read(f, arr[file_i, file_j]);
      Inc(file_j);
    end;
    ReadLn(f);
    Inc(file_i);
  end;
  CloseFile(f);
  SetLength(k1,10);
  SetLength(k2,10);
  for i: integer:=0 to k1.GetLength(0)-1 do begin
    SetLength(k1[i],5);
  end;    
  for i: integer:=0 to k2.GetLength(0)-1 do begin
    SetLength(k2[i],5);
  end; 
  for i:integer := 0 to k1.GetLength(0)-1 do begin
    for j:integer := 0 to k1.GetLength(1)-1 do begin
      k1[i,j]:=arr[i,j];
    end;
  end;
  for i:integer := 0 to k2.GetLength(0)-1 do begin
    for j:integer := 0 to k2.GetLength(1)-1 do begin
      k2[i,j]:=arr[i+10,j];
    end;
  end;
  initial_kk:=Krit_Komp(k1,k2);
  
end.