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

Program enot;
Var a: array [1..6] of integer;
 i,p:integer;
begin
for i:= 1 to 6 do
 a[i]:= random(13)+5;
for i:= 1 to 6 do
write(a[i]:4);
writeln();
p:=a[5];
a[5]:=a[6];
a[6]:=p;
a[4]:=a[4]*3;
for i:= 1 to 6 do
write(a[i]:4);
end.