Доработать программу

program poisk;
uses crt;
var
     a:array[1..62] of integer;           { массив целых}
     obrazec:integer;                                               { образец для поиска }
     naiden:boolean;                                                { признак совпадения с образцом }
     i:integer;
begin
randomize;
clrscr;
     for i:=1 to 62 do a[i]:=random(30);
     { числа введены в массив }
      writeln('Поиск в массиве.');
     write('->');
     for i:=1 to 62 do write(' ',a[i]);
     write('Введите образец для поиска (целое число)-> ');
     readln(obrazec);
     { поиск простым перебором }
     naiden:=FALSE;                                                 { совпадений нет }
     i:=1;                                                                     { проверяем с первого элемента массива }
     repeat
          if a[i] = obrazec
               then naiden:=TRUE                   { совпадение с образцом }
               else i:=i+1;                        { переход к следующему элементу }
     until (i>62) or (naiden);{ завершим, если совпадение  с образцом или проверено                                                                                                                 { последний элемент массива }
     if naiden           then writeln('Совпадение с элементом номер', i:3,'. ')
          else writeln('Совпадений с образцом нет.');
end.

naiden:=FALSE;
i:=1;
repeat
if a[i] = obrazec  then
 begin
  naiden:=TRUE; { совпадение с образцом }
  writeln('Совпадение с элементом номер ',i)
 end;
i:=i+1;   { переход к следующему элементу }
until i>62;;
if not naiden  then writeln('Совпадений с образцом нет.');