Встречается ли число в последовательности, сколько раз, под каким порядковым номером

uses crt;
var a:array[1..100]of integer;i,l,n,k:integer;
begin
writeln('введите кол-во элементов');
readln(n);
writeln('введите число');
readln(l);
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
if a[i]=l then
begin
k:=k+1;
writeln('номер ',i);
end;
end;
if k>0 then
begin
writeln('да');
writeln(k,' раз');
end;
end.

uses crt;
type
ar=array[1..100] of integer;
var
a:ar;
n:integer;
i,count,max:byte;
BEGIN
     repeat
     write(' Введите количество элементов ');
     readln(max);
     until max in [1..100];
     
writeln('Введите Вашу последовательность');
 
for i:=1 to max do
 begin
  write('Введите a[', i, '] = ');
   readln(a[i]);
  end;
  clrscr;
  writeln('вы ввели:');
  for i:=1 to max do
   write(a[i]:2,'  ');
    writeln;
  writeln('Введите число для поиска: ');
   readln(n);
   
   count:=0;
   for i:=1 to max do
     if a[i]=n then inc(count);
     
     if count <> 0 then
      begin
        writeln(' Ваше число имеется в последовательности, и встречается ', count, ' раз');
         write(' Под номером(ми) :');
          for i:=1 to max do
           if a[i] = n then write(i,'  ');
           end
                     else  Writeln('извините, такого числа в последовательности нет');
                     
         END.

x:=1
y:=1*(2)
repeat
z:=x+y;
x:=y;
z:=y.
until