В заданном массиве В[1 : 6] найти индекс элемента, равного числу Р

uses crt;
var b : array [1..6] of integer;
i,p,ind : integer;
begin
writeln('Сам массив: ');
for i:=1 to 6 do
begin
b[i]:=random(100);
write(b[i]:3)
end;
writeln;
writeln('Введите число P');
read(p);
for I:=1 to 6 do
if b[i]=p then ind:=i;
if ind = 0 then writeln('Нету элементов массива равных числу P')
else writeln('Элемент с номером ',ind,' равен числу P');
end.

uses crt;
var b : array [1..4] of integer;
a : array [1..4] of real;
i,s : integer;
begin
writeln('Èñõîäíûé ìàññèâ: ');
for i:=1 to 4 do
begin
b[i]:=random(100);
write(b[i]:3);
S:=s+b[i];
end;
writeln;
writeln('Ñóììà ýëåìåíòîâ ìàññèâà = ',S);
writeln('Ìàññèâ ïîñëå èçìåíåíèÿ : ');
for I:=1 to 4 do
begin
a[i]:=b[i]/s;
write(a[i]:6:2);
end;
end.

uses crt;
var b : array [1..100,1..100] of integer;
t : real;
i,j,kol,x,y,z : integer;
begin
writeln('Ââåäèòå X');
read(x);
writeln('Ââåäèòå Y');
read(y);
writeln('Ââåäèòå Z');
read(z);
writeln('Ñàì ìàññèâ: ');
for i:=1 to x do
for j:=1 to y do
begin
b[i,j]:=random(100);
if abs(b[i,j])< z then kol:=Kol+1
end;
for i:=1 to x do
begin
for j:=1 to y do
write(b[i,j]:3);
writeln;
end;
writeln('Êîë-âî ýëåìåíòîâ ìåíüøå ïî ìîäóëþ T = ',kol);
end.