Дан массив из 20-ти случайных чисел.необходимо записать во второй массив значение первого в обратном порядке.С Паскаля

Программа:

<c> NaaMan}

program test;

 var b : array[0..19] of integer;

begin

 var a := ArrRandomInteger(20, 0, 100);

 writeln(a);

 for var i := 0 to 19 do

   b[19 - i] := a[i];

 writeln(b);

end.

Результат выполнения: