Массивы хэлп Опции

[Ksuni]

Народ помогите мне в универе дали такое задание:
Вводятся различные целые числа. надо определить четные и нечетные.
результат вывести на экран. я в программировании 0. icq 299950600

[Gremlin]

Код

Program by_Deadly;
Uses crt;
Var
massiv:array[1..10] of longint;
x:byte;
Begin
for x:=1 to 10 do begin
  write('massiv[',x,']:=? ');
  readln(massiv[x]);
 end;
ClrScr;
for x:=1 to 10 do begin
  if odd(massiv[x])=true then writeln('massiv[',x,']=',massiv[x],' - HE4ETHOE 4uC/O')
  else writeln('massiv[',x,']=',massiv[x],' - 4ETHOE 4uC/O');
 end;
End.

по-русски у мня пас не печатит