Найти номер первого элемента меньше заданного числа а. - Turbo Pascal - Ответ 695873

uses crt;
var
a:array[1..1000] of integer;
i,j,num,n,k,chislo:integer;
begin
  clrscr;
  write('введите колличество элементов ');
  readln(n);
  writeln('заполните массив ');
  for i:=1 to n do
  begin
    write('a[',i,']= ');
    readln(a[i]);
  end;
  writeln('исходный массив: ');
  for i:=1 to n do
  write(a[i]:5);
  writeln;
  for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i]<a[j] then
    begin
      k:=a[i];
      a[i]:=a[j];
      a[j]:=k;
    end;
  writeln('преобразованный массив: ');
  for i:=1 to n do
  write(a[i]:5);
  writeln;
  textcolor(10);
  write('введите число ');readln(chislo);
  num:=0;
  for i:=1 to n do
  begin
    if a[i]<chislo then
    begin
      writeln('номер первого элемента меньше заданного числа равен ',i);
      num:=1;
      break;
   end;
  end;
  if num=0 then  writeln('такого элемента нет!');
  readln;
end.