Ошибка вывода - Pascal ABC (16796)

Формулировка задачи:

uses crt;
var
   x: array [1..255] of integer;
  m,a,n,i:integer;
begin
   clrscr;
   write('Введите число a: '); readln(a);
   write('Введите кол-во чисел в последовательности n: '); readln(n);
   for i:=1 to n do
    begin
       write('Введите член последовательности = x',i,': '); readln(x[i]);
    end;
for i:=1 to n do
if x[i]=a then m:=i;
write('Число А находится на месте №',m);
readkey;
end.
Если ввести число 2 и кол-во этоменов х, и во всех элементах прописать 2, то присвотся последнее, как сделать все?

Код к задаче: «Ошибка вывода - Pascal ABC (16796)»

textual
uses crt;
var
   x: array [1..255] of integer;
  m,a,n,i:integer;
begin
   write('Введите число a: '); readln(a);
   write('Введите кол-во чисел в последовательности n: '); readln(n);
   for i:=1 to n do
    begin
       write('Введите член последовательности = x',i,': '); readln(x[i]);
    end;
writeln('Число А находится на местах №');
for i:=1 to n do
if x[i]=a then write(i,' ');
end.

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ