исправте программу (нужно чтоб массив был упорядочен от 1 до 50)

Program _;
uses crt;
const n=10;
type am=array[0..n] of integer;
var a:am; x,m:integer; i,j,f:byte;
begin
clrscr;
randomize;
          for i:=1 to n do a[i]:=random(10); //сортирует
          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 (' введи элемент для поиска=');  readln (m);
          write ('отсортированный начальный массив= ');
          for i:=1 to n do write (a[i],'  ');
          writeln;
          for i:=1 to 10 do begin
          if a[i]=m then begin writeln ('найден!=',m,' его место=',i); break; end;
           end;
end.

uses crt;
const n=50;
var a:array[1..n] of integer;
    i,k,l,r,m:integer;
    f:boolean;
begin
randomize;
a[1]:=random(5);
for i:=2 to n do
a[i]:=a[i-1]+random(5)+1;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Введите число для поиска k=');
read(k);
l:=1;
r:=n;
f:=false;
while(l<=r)and not f do
 begin
  m:=(l+r)div 2;
  if k<a[m] then r:=m-1
  else if k>a[m] then l:=m+1
  else f:=true;
 end;
if f then write('Число ',k,' есть в массиве')
else write('Числа ',k,' нет в массиве');
end.

uses crt;
const n=50;
var a:array[1..n] of integer;
    i,k,l,r,m,s:integer;
begin
randomize;
a[1]:=random(5);
for i:=2 to n do
a[i]:=a[i-1]+random(5)+1;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Введите число для поиска k=');
read(k);
l:=1;
r:=n;
s:=0;
while(l<=r)and(s=0) do
 begin
  m:=(l+r)div 2;
  if k<a[m] then r:=m-1
  else if k>a[m] then l:=m+1
  else s:=m;
 end;
if s>0 then write('Число ',k,' есть в массиве, его номер=',s)
else write('Числа ',k,' нет в массиве');
end.