Я нужно. одномерный массив из 6 элементов с номерами от 3 до 8 заполнить случайным образом числами от 5 до 17. поменять местами 5-ый и 7-ой элементы массива,а 4-ый элемент увеличить в 3 раза. вывести на экран монитора первоначальный и преобразованный массивы в строчку.

Var
   i:integer;
  a:array[3..8]of integer;
begin
writeln('Исходный массив:');
for i:=3 to 8 do
  begin
  a[i]:=random(5,17);
  write(a[i]:4);    end;
writeln;
i:=a[7];
a[7]:=a[5];
a[5]:=i;
a[4]:=a[4]*3;
writeln('Преобразованный массив:');  
for i:=3 to 8 do
  write(a[i]:4);
end.