интерполяционный поиск

[aksdaqg]

Сортирует норм, но потом на интерполяционном поиске виснет. массив небольшой взял для примера. Кто подскажет, какая ошибка в поиске. пробовал другим методом искать все норм, так что это не из-за шела и файла

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type mas= array[1..1000] of integer;
 
var i, x , p, k, razm : integer;
    a , b : mas;
    tf :  text;
 
procedure SHELL( var a : mas);
var d, i, t : integer; k : boolean;
begin d:=razm div 2;         
while d>0 do begin k:=true;
while k do begin k:=false; i:=1;
for i:=1 to razm-d do begin
if a[i]>a[i+d] then begin
t:=a[i]; a[i]:=a[i+d]; a[i+d]:=t;
k:=true; end; end; end;
d:=d div 2; end; end;
 
procedure interpol(key, n:integer ; a:mas);
var l,r,m : Integer;
begin
Writeln('Interpol');
l:=1; r:=n;
while (l<>r) do
begin
  m:=1+trunc(((r-1)*(key-a[1]))/(a[r]-a[l]));
  if key>a[m] then l:=m+1 else r:=m;
 
end;
if a[l]=key then Writeln('naideno',l) else Writeln('ne naideno');
Writeln;
end;
 
 
 
begin
 assign(tf,'input.txt');
    reset(tf);
      razm:=0;
 
 while not(eof(tf)) do begin
  inc(razm);
    read(tf,a[razm]);
 end;
 
 
 
 closefile(tf);
        writeln;
         for i:=1 to razm do
         write(a[i],' ');
         writeln;
writeln('Shell');
shell(a);
writeln;
 
         for i:=1 to razm do
         write(a[i],' ');
 
///////////////////////////////////////////////////////////////////
writeln;
writeln('Vvedite iskomoe chislo');
readln(k);
interpol(k, razm, a);
////////////////////////////////////////////////////////////////////////
readln;
end.

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

Модератор.