const
n = 5;
var
arr: array [1..15] of integer;
arr1, arr2, arr3: array [1..n] of integer;
sum1, sum2, sum3: integer;
i, j, max, id_max: integer;
begin
sum1:=0;
sum2:=0;
sum3:=0;
j:=n;
writeln('Vvedite massiv');
for i:= 1 to 15 do
readln(arr);
arr1[1]:= arr[1];
arr1[2]:= arr[2];
arr1[3]:= arr[3];
arr1[4]:= arr[4];
arr1[5]:= arr[5];
arr2[1]:= arr[6];
arr2[2]:= arr[7];
arr2[3]:= arr[8];
arr2[4]:= arr[9];
arr2[5]:= arr[10];
arr3[1]:= arr[11];
arr3[2]:= arr[12];
arr3[3]:= arr[13];
arr3[4]:= arr[14];
arr3[5]:= arr[15];
while j > 1 do begin
max := arr1[1];
id_max := 1;
for i := 2 to j do
if arr > max then begin
max := arr1;
id_max := i
end;
arr1[id_max] := arr1[j];
arr1[j] := max;
j := j - 1
end;
j:=n;
while j > 1 do begin
max := arr2[1];
id_max := 1;
for i := 2 to j do
if arr2 > max then begin
max := arr2;
id_max := i
end;
arr2[id_max] := arr2[j];
arr2[j] := max;
j := j - 1
end;
j:=n;
while j > 1 do begin
max := arr3[1];
id_max := 1;
for i := 2 to j do
if arr3 > max then begin
max := arr3;
id_max := i
end;
arr3[id_max] := arr3[j];
arr3[j] := max;
j := j - 1
end;
for i:= 1 to n do begin
repeat
sum1:=sum1+arr1;
sum2:=sum2+arr2;
sum3:=sum3+arr3;
until(i = n);
end;
for i:= 1 to n do begin
writeln('1 pyaterka:');
write(arr1, ' ');
writeln('sum: ', sum1);
writeln('2 pyaterka:');
write(arr2, ' ');
writeln('sum: ', sum2);
writeln('3 pyaterka:');
write(arr3, ' ');
writeln('sum: ', sum3);
end;
end.
Всё работает отлично!