Заполнить массив из 10 элементов случайными числами и сделать реверс всех элементов, кроме первого

uses crt;

var a:array[1 ... 10] of Integer;

i, j:Integer;

procedure rep; var k:Integer; begin k:=a[ i]; a[ i]:=a[j]; a[j]:=k; end;

begin

randomize; clrscr;

for i:=1 to 10 do a[ i]:=random (101) ;

for i:=1 to 9 do for j:=i+1 to 10 do if a[ i] mod 10 > a[ j] mod 10 then rep;

for i:=1 to 10 do write (a[ i],' ') ;

end.

const

n = 10;

var

a : array [ 1 ... n ] of integer;

i, tmp : integer;

begin

randomize;

for i : = 1 to 10 do

begin

a [ i ] : = random (21) - 10;

Write (A [ i ] : 3) ;

end;

writeln;

for i : = 2 to n div 2 do

begin

tmp : = a [ i ];

a [ i ] : = a [ 10 - i + 2 ];

a [ 10 - i + 2 ] : = tmp;

end;

for i : = 1 to n do write (a [ i ] : 3) ;

readln;

end.