Linking 2 variables

You can combine a record and an array to do that. Do I need to explain how to use records and arrays for you?

Take a look at the example

Program Name;

uses crt;

type Customer = record
 Name : string;
 Adress : string;
end;

var Customers : array[1..3] of Customer;

procedure WriteCustomer(C : Customer);
begin
 Writeln('Name   : ', C.Name);
 Writeln('Adress : ', C.Adress);
 Writeln;
end;

begin
 Customers[1].Name := 'Heini';
 Customers[1].Adress := 'keen road 8';
 Customers[2].Name := 'Rolfs';
 Customers[2].Adress := 'torp road 1';
{etc. etc.}
 Writeln('First Customer')
 WriteCustomer(Customers[1]);
 Writeln('Second Customer')
 WriteCustomer(Customers[2]);
end.

Adjusted points to 75

if Data is a Record then
you have to explain where is the data stored ( in a File or in tha Ram "array").
after that you have to search about
your record match with Customer Number
and then Display other Info(name,address,...).
  Bakry

Why the rejection?  Please explain your question more clearly.  Do you understand records and arrays?

This Procedure :

  For Counter:=1 to MaxCust do
  BEGIN
       if Customers[Counter].custid
       = custid
       begin
           writeln('Id : ',Customers[counter].custid;
           writeln('Name : ',Customers[counter].name;
           writeln('Adress : ',Customers[counter].adress;
       

make a search through your array, and give you the result on the screen if it could find a match(custid in array = the custid you typed in).

Cheers Mate!!!!!!!!!!!!!!!!!!!