найдите ошибку

[Enerdgazer]

uses crt;

const SIZE=10;

type am=array[1..SIZE] of integer; // в тушке программы у Вас нет обращения к 0-му элементу массива, поэтому я поставил 1
var a:am; x,m:integer; i,j,f:byte; ch : Char;
begin
clrscr;
randomize;
Write ('Do you prefer to input digits automatically? Y/N')
ReadLn (ch);
if UpCase (ch) = 'Y' then begin
          n := SIZE;
          for i:=1 to n do a[i]:=random(10) // Заполняем 
end
else begin
       ReadLn (n);
       for i := 1 to n do
              Read (a[i]);
end;

Write ('What elem do you want to look for in this array ? ');
ReadLn (m); // не ахти имя..

          for i:=2 to n do                          //сортирует
          for j:=n downto i do                    //сортирует
              if a[j-1]<a[j] then begin
                 x:=a[j-1];
                 a[j-1]:=a[j];
                 a[j]:=x;
                 end;                                 //сортирует

          write ('отсортированный начальный массив= ');
          for i:=1 to n do write (a[i],'  ');
          writeln;

 count := 0;
  First := 1;
  Last := n;
  Found := False; {Элемент не найден}
  
  repeat {Повторять поиск}
  i := (First + Last) div 2; {Разделить на две части}
  if a[i] = m then Found:=True
    else
      begin
        if a[i] > m then First := i+1 {Искать элемент в правой части}
        else Last := i-1; {Искать элемент в левой части}
      end;
  count := count+1; {Увеличить счетчик числа итераций}
  until (Found) or (First>Last); {Завершить, если найдется искомый элемент или будет просмотрен весь массив}
  
  if Found then Writeln('Искомый элемент ', m,' в массиве занимает ',I,'-ю позицию')
  else
  Writeln('В массиве нет искомого элемента ',m);
  Writeln('Поиск выполнен За ',count,' итераций');
  Writeln('Завершить>');
  Readln
          
end.

[Serge_Bliznykov]

я нашёл.
Причём даже ТРИ ошибки!
Точнее, нарушение правил форума!

1) Название темы не соответствует правилам форума

Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)

3) в тексте сообщения нужно сообщать о решаемой задаче и возникших проблемах.

Для начала просто закрываю тему!
Для профилактики...

Модератор