строки 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;