Дан массив из 20 элементов , заполненный случайным образом. вывести его на экран , после этого изменить массив , чтобы значение последнего элемента стало значением первого ( обратный порядок ) пример: 1 2 3 4 5 и стало 5 4 3 2 1 (паскаль)

Ar
arr: array[1..20] of integer;
i,tmp:integer;
begin

for i := 1 to 20 do
begin
arr[i] := random(100);
end;

for i := 1 to 20 do write(arr[i], ' ');

for i := 10 downto 0 do
begin
tmp := arr[i+1];
arr[i+1] := arr[20-i];
arr[20-i] := tmp;
end;
writeln;
for i := 1 to 20 do write(arr[i], ' ');
end.

Вот код. Ещё раз выводит значения массива. В условии это явно не указано, но всё же.