Помогите пожалуйста заполнить пропуски!!
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.