Помогите пожалуйста заполнить пропуски!!
Type LinMass = array [1..1000] of Integer;
Var A : LinMass; N, i : _______;
begin
Write('Количество элементов массива: '); ReadLn(N);
For I := 1 To ____ Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[i]);
End;
i:=6;
while i ____ n do
begin
A[____]:=A[i];
i:= i+1;
end;
n:=n-5;
For I := 1 To ____ Do
write(a[i]:6);
end.

1. integeri - параметр цикла , должен быть целочисленным2. nвводим последовательно элементы с 1 до n3.(( i-5)<n)4. i-5 первому элементу присваиваем значение шестого, второму - седьмого и т.д.5. n выводим последовательно элементы с 1 до n -5