[icWasya]

строки 39-44
должно быть

Код:

  k:=0;
  for i:=low(IndexType) to high(IndexType) do begin
    write(a[i]:5,' ');
    k :=k+a[i];
  end;
  writeln;
end;
SetLength(C,k);

и в строке 28 цикл по i желательно писать таким же образом
далее после строки 52
sum:=a[1]*v+a[2]*g+a[3]*l+a[4]*t+a[5]*r;
вставить строку
C[sum] := C[sum] + 1;