задачка на мтрицы

[Nikolai17]

Дан массив из 10 целых чисел di. Вывести на экран в строку только те элементы, для которых выполняется условие: di>1.

моя попытка

program er1;
uses crt;
const
 n=10;
var
  d,a:array[1..10] of integer;

  x,i,j:integer;
begin
   textbackground(white);
   textcolor(black);
   clrscr;
  writeln('Enter matrix ');
  for i:=1 to n do 
                   d[i]:=random(10);



writeln;
writeln;
writeln;

writeln('Matrix d');
for i:=1 to n do write(d[i],' ');

writeln;
writeln;

x:=0;
while x<10 do begin

for i:=1 to n do begin
  if d[i]>1 then d[i]:=a[j];
x:=x+1;
i:=i+1;
j:=j+1;
end;
end;


writeln('Matrix a');
for i:=1 to 10 do write(a[j],' ');
readkey;


end.

чёт не работает......не выводит d[i]>1 смотрел в режиме отладки чет трабл в цикле по моему

[Stilet]

А не проще ли:

for i:=1 to n do begin
  if d[i]>1 then Write(d[i]:5);
  x:=x+1;
end;
end;

[Alex_FF]

program ext1;

uses
  Crt;

const
  Len = 10;

var
  a: Array[1..Len] of Integer;
  I: Integer;
begin
  ClrScr;
  Randomize;
  for I := 1 to Len do
    a[I] := -5 + Random(Len);
  for I := 1 to Len do
    if a[I] > 1 then Write(a[I], ' ');
  WriteLn;
  ReadKey;
end.

Не компилировал, но вроде должно работать