Сортировка усовершенствованным способом и поиск информации

uses crt;
const nmax=100;
type mas=array[0..nmax] of integer;
procedure Vvod1(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Размер массива от 4 до ',nmax,' n=');
readln(n);
until n in [4..nmax];
writeln('Введите элементы масива, целые числа:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr;
end;
procedure Vvod2(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Размер массива от 4 до ',nmax,' n=');
read(n);
until n in [4..nmax];
for i:=1 to n do
a[i]:=-40+random(31);
end;
procedure Vyvod(a:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i]:4);
writeln;
end;
procedure Poisk(a:mas;n,x:integer);
var i:integer;
    f:boolean;
begin
write('Введите число для поиска x=');
read(x);
f:=false;
i:=1;
while (i<=n)and not f do
if a[i]=x then f:=true
else i:=i+1;
if f then writeln('Число ',x,' есть в массиве')
else writeln('Числа ',x,' нет в массиве')
end;
procedure Shell(var a:mas; n:integer);
const b:array[1..4] of byte = (5,3,2,1);
var i,j,k,gap,temp:integer;
begin
 for k:=1 to 4 do
  begin
   gap:=b[k];
   for i:=gap to n do
    begin
     temp:=a[i];
     j:=i-gap;
     while (temp<a[j]) and (j>=gap) do
       begin
        a[j+gap]:=a[j];
        j:=j-gap;
       end;
     a[j+gap]:=temp;
    end;
   end;
  end;
var a:mas;
    n,x:integer;
    w:char;
begin
randomize;
repeat
writeln('Ввод с клавиатуры - 1 или рандомный - 2');
readln(w);
until w in ['1'..'2'];
case w of
'1':Vvod1(a,n);
'2':Vvod2(a,n);
end;
writeln('Исходный массив:');
Vyvod(a,n);
Poisk(a,n,x);
Shell(a,n);
writeln('Отсортированный массив:');
Vyvod(a,n);
end.