Я прошу Вас,ребятка,помогите,мне очень срочно нужно.

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

var   i:integer;  a:array[3..8]of integer;beginwriteln('Исходный массив:');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.