uses System.SysUtils;

var
  StrData, Name, Position: string;
  ArrData: TArray<string>;
  Year: Integer;
begin
  StrData := '1981|Kim Victoria|engineer';
  ArrData := StrData.Split(['|']);

  Year := StrToInt(ArrData[0]);
  //Year is 1981
  Name := ArrData[1];
  //Name is 'Kim Victoria'
  Position := ArrData[2];
  //Position is 'engineer'

  WriteLn('year is ', Year);
  WriteLn('name is ''', Name, '''');
  WriteLn('position is ''', Position, '''');
end.