Тема массивы, язык паскаль. составьте программу которая меняет местами первый и девятый элементы массива(массив задается с клавиатуры ,количество элементов 17)

Program z1;
var a:array [1..17] of integer;
i:integer;
begin
for i:=1 to 17 do read(a[i]);
i:=a[1];
a[1]:=a[9];
a[9]:=a[1];
for i:=1 to 17 write(a[i]);
end.