Пусть даны действительные числа x, a1, a2,….,an. Определить: имеется ли в массиве a1, a2,…,an элемент равный x. Если такой элемент найден, то напечатать его индекс и нуль в противном случае — Pascal(Паскаль)

program pr1;
var mas:array[1..100] of integer; x:integer;
    n,i:byte; pr:boolean;
begin
   writeln('Vvedite n');
   readln(n);
   for i:=1 to n do
   begin
      mas[i]:=random(70)-30;
      write(mas[i]:4);
   end;
   writeln;
   writeln('Vvedite x');
   readln(x);
   pr:=true;
   for i:=1 to n do
   if mas[i]=x then begin
                      if pr then writeln('Pozicii chisel ravnih ',x);
                      pr:=false;
                      write(i:3);
                    end;
   if pr then writeln('0');
   writeln;
   readln;
end.