//no skill data base
//тело с базой
var
  clientName  :array[0..100] of string;
 clientPhoneNumber :array[0..100] of string;
 clientAdress  :array[0..100] of string;
begin
//init
 for i:=0 to 100 do
 begin
  clientName[i]  :="ClientName";
  clientPhoneNumber[i] :="clientPhoneNumber";
  clientAdress[i]  :="clientAdress";
 end;
//этот вызов надо производить после написания процедуры GetData, тоесть запихать куднить ниже
 GetData(StrToInt(InputBox("Dialog","Type client personal number","1"))); //http://www.delphibasics.ru/InputBox.php
 
procedure GetData(indexOf: integer);
begin 
 ShowMessage("Name: "+clientName[indexOf]);
 ShowMessage("Number: "+clientPhoneNumber[indexOf]); 
 ShowMessage("Adress: "+clientAdress[indexOf]);
//http://www.delphibasics.ru/ShowMessage.php
end;