Source Code Program Interpolasi pada Delphi 7

Assalamualaikum.
pada kali ini saya akan men share program interpolasi pada delphi 7. program interpolasi ini menurut saya sama saja dengan program pencarian yang sudag saya share kemarin. pada pembuatan sintaks nya saja serta konsepnya yang berbeda sehingga pada pengertiannya berbeda. saya juga tidak terlalu paham :D

baiklah langsung saja saya share source codenya, semoga bermanfaat :)

program latihan_4;

{$APPTYPE CONSOLE}

uses
  windows;


var
  a : array [1..10] of integer;
  n,i,cari,r,t,j : integer;

procedure GotoXY(x, y: Integer);
var
  elemen: _COORD;
begin
  elemen.x := x-1;
  elemen.y := y-1;

  SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), elemen);
end;
begin
gotoxy(10,2);
write('Nama     : SUKRAN');
gotoxy(10,3);
write('NIM      : J1F113003');
gotoxy(10,5);
write('Tekan Enter !!!');
readln;
begin
writeln;
writeln('     Program Pencarian Interpolasi      ');
writeln('========================================');
writeln;
write  ('Masukan Jumlah data yang diinginkan   : ');
readln (n);
writeln;
for i:= 1 to n do
  begin
    write('Masukan nilai data ke ',i, '  : ');
    readln (a[i]);
  end;
writeln;
write ('Masukkan Nilai yang dicari : ');
readln(cari);

r:= 1;
t:= n;
while (a[t] >= cari ) and (cari > a[r]) do
  begin
  j:= trunc((cari-a[r])/(a[t]-a[r])*(t-r))+r;
   if cari > a[j] then
  r := j+1
   else
    if cari < a[j] then
   t := j-1
   else
   r := j;
end;
   writeln;
    if a[r] = cari then
    writeln('Data yang anda cari ada pada data ke :',r)
    else
    writeln('Data tidak ada berdasarkan inputan yang anda masukan diatas...!!! ');

readln;
end;
end.