Sample Pascal File

{ Sample Free Pascal program — samplefiles.com }
program Sample;

{$mode objfpc}{$H+}

type
  TCustomer = record
    Id: Integer;
    Name: string;
    Balance: Double;
  end;

function MakeCustomer(Id: Integer; const Name: string; Balance: Double): TCustomer;
begin
  Result.Id := Id;
  Result.Name := Name;
  Result.Balance := Balance;
end;

function IsVip(const C: TCustomer): Boolean;
begin
  Result := C.Balance >= 10000;
end;

function PadRight(const S: string; Width: Integer): string;