Может ли функция возвращать два значения? - Turbo Pascal

Формулировка задачи:

Есть некоторая функция F. У неё входные параметры - t, x. Выходные: xp[1], xp[2], где xp[1]:=t*x; xp[2]:=t+x; В дальнейшем xp[1] и xp[2] будут используются в головной программе. Как сделать, чтобы функция вернула и значение xp[1], и значение xp[2]? Не хочу разбивать функцию на две.

Решение задачи: «Может ли функция возвращать два значения?»

Листинг программы

function xp(t,x:longint;var x2:longint):longint;
begin
xp:=T*X;
x2:=T+x;
end;
begin
readln(t,x);
p:=xp(t,x,x2);
write(p,' ',x2);
readln;
end.

Объяснение кода листинга программы

Функция xp принимает три аргумента типа longint и возвращает longint. Она выполняет следующие действия:

xp присваивает значение T * X переменной xp.
x2 присваивает значение T + x переменной x2.
xp возвращает значение xp.
В функции main считываются два аргумента типа longint с помощью функции readln.
Переменная p присваивается значению, возвращаемому функцией xp с аргументами t, x и x2.
Значение переменной p выводится на экран с помощью функции write.
Функция readln считывает ввод пользователя.
Программа завершается после ввода пользователем данных.