Поиск в массиве  методом перебора элементов — Pascal(Паскаль)

program poisk;
var
     massiv:array[1..10] of integer; { массив целых}
     obrazec:integer; { образец для поиска }
     naiden:boolean; { признак совпадения с образцом }
     i:integer;
begin
     { ввод 10 целых чисел }
     writeln('Поиск в массиве.');
     write('Введите 10 целых в одной строке через пробел ');
     writeln ('и нажмите <Enter>');
     write('->');
     for i:=1 to 10 do read(massiv[i]);
     { числа введены в массив }
     write('Введите образец для поиска (целое число)-> ');
     readln(obrazec);
     { поиск простым перебором }
     naiden:=FALSE; { совпадений нет }
     i:=1; { проверяем с первого элемента массива }
     repeat
          if massiv[i] = obrazec
               then naiden:=TRUE     { совпадение с образцом }
               else i:=i+1;     { переход к следующему элементу }

     until (i>10) or (naiden); { завершим, если совпадение 
					     { с образцом или проверен }
			               { последний элемент массива }
     if naiden
          then writeln('Совпадение с элементом номер', i:3,'. ') 			    {writeln('Поиск успешен.')}
          else writeln('Совпадений с образцом нет.');
end.