Pascal Одномерные массивы

[Repz1992]

Помогите пожалуйста с программой!
Задача:
Из массива А[10] убрать все элементы интервала (1,10).Первоначальный и конечный массив распечатать.
Program ma;
Var a,i:real;
write('i=1');
readln(i);
if i:=1 to 10 do
write (a[i]:6:3)
Readln(a[i])
end.
for i:=a to 10 do
if(a[i]>1) and (a[i]<10)
then write (a[i]:6:3);
readln;
end;
write('Massiv A');
J:=J+1
FOR I:=1 to 10 writeln(a[i]);
writeln('b');
for i:=1 to j do writeln (b[i]);
readln
end.
как эту задачу решить???помогите пожалуйста ничего не получается!!!

[Repz1992]

нет тут умных людей что ли?

[Repz1992]

помогите пожалуйста ,завтра надо сдать!!!

[psycho-coder]

Uses Crt;
Var a: array [1..10] of Integer;
i: Integer;

begin
ClrScr;
  RandomIze;
  for i:=1 to 10 do
  begin
    a[i] := Random(21);
    Write(a[i]:5);
  end;
  Writeln;

  for i:= 1 to 10 do
    if (a[i]>1) and (a[i]<10) then a[i] := -1;

 for i := 1 to 10 do
   if a[i] = -1 then continue
   else  Write(a[i]:5);

    
 ReadKey;
end.