Обработка массивов. Одномерный массив.

[Spyke]

Здравствуйте.
Задача...
Задан одномерный массив Х={3,0,1,7,1,4,2,0,3,7,9} размерности n=12.
Вывести на печать номера элементов массива Х, равных заданному числу А=1...
___________________________________ ______________________________
Вот что у меня вышло:
var
x:array[1..12] of real;
i:integer;
begin
writeln('введите элементы массива');
for i:=1 to 12 do
begin
readln(x[i]);
end;
for i:=1 to 12 do
begin
if x[i]=1 then
writeln('номера элементов массива = 1', i);
end;
end.
Вопрос в том какие где ошибки?

[GetMax]

Вопрос в том какие где ошибки?

Нету никаких ошибок

[Spyke]

Хммм... Я сомневался просто... Ну раз нету это хорошо !