3 подпрограммы

type
 RArray = array[1..10] of Real;
 
var
 A,B,C:RArray;
 Na,Nb,Nc:integer;
 
Procedure Bell(var A:RArray; N:integer);
 var k,k2:integer;
 TempR: RArray;
begin
 
 for k:=1 to N-1 do
  for k2:=1 to N-k do
   begin
    if A[k2]<A[k2+1] then
     begin
      A[k2]:=A[k2]+A[k2+1];
      A[k2+1]:=A[k2]-A[k2+1];
      A[k2]:=A[k2]-A[k2+1];
     end;
   end;
 
 for k:=1 to N do
  if (k mod 2)<>0 then TempR[(k div 2)+1]:=A[k]
  else TempR[N-(k div 2)+1]:=A[k];
 A:=tempR;
end;
 
Procedure EnterArray(var A:RArray; var N:integer);
var i:integer;
begin
 Write('Size:');
 Readln(N);
 for i:=1 to N do
  begin
   Write(i,': ');
   Readln(A[i]);
  end;
end;
 
Procedure InputArray(var A:RArray; var N:integer);
var i:integer;
begin
 Writeln('---');
 for i:=1 to N do
 A[i]:=random(25);
 Writeln('---');
end;
 
begin
 EnterArray(A,Na);
 Bell(A,Na);
 InputArray(A,Na);
 
 EnterArray(B,Nb);
 Bell(B,Nb);
 InputArray(B,Nb);
 
 EnterArray(C,Nc);
 Bell(C,Nc);
 InputArray(C,Nc);
end.