Задача 15 Урок 15

Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m

var n:array [1..100] of integer;
    k,i,j,d,m,p:integer;
begin
  randomize();
  d:=0;
  for i:=1 to 100 do
    n[i]:=random(101);
  writeln('Vvedite interval chisel dlia poiskov: ');
  readln(k);
  writeln('Vvedite nachalnyi element: ');
  readln(m);
  writeln('Vvedite konechnyi element: ');
  readln(p);
  if((1<=m)and(m<p)and(p<100)) then
    for j:=m to p do
      begin
        if(n[j]=d) then
          if(d=k) then
            begin
              write ('Vse elementi est');
              break;
            end
          else
            d:=d+1
        else
          begin
            write('Ne vse elementi naideni');
            break;
          end;
      end;
end.    

Консоль:

Vvedite interval chisel dlia poiskov: 
4

Vvedite nachalnyi element: 
5

Vvedite konechnyi element: 
65

Ne vse elementi naideni