ошибка в коде

[Антон Лысенко]

это код поиска элемента. если 2 элемента то 1-ый не находит. если 3 то крайние.

 begin
     writeln('vvedite iskomyi element');
     readln(el);
     nm:=1; vm:=m;
      repeat
        begin
           k:=(nm+vm)div 2;
             if el=a[k] then
               begin
                write('element naide, index=',k);
                goto stop
               end
             else
               if el<a[k] then
                  vm:=k-1
               else
                  nm:=k+1
    end;
      until(nm>vm);
          writeln('element ne naiden!');
          stop:readln; readln
       end;

[ArtGrek]

когда пишеш код, прилаживаи к нему var,
что б люди не ломали голову что ето за переменая