описать процедуру которая объединяет 2 упорядоченных по возрастанию списка в один упорядоченный по возрастанию

[Анастасья]

есть наброски
type
Tinf=integer;
Tptr=^Tlist;
Tlist=record
inf:Tinf;
next:Tptr;
end;
{определяет упорядочен ли список}
function IsOrderUp(h:Tptr):boolean;
var
t:Tptr
ok:boolean;
begin
if IsEmptyList(h)then
Result:=true
else
if H^.next=nil then Result:=true
else
begin
t:=h;
ok:=true;
while (t^.inf<>nil)and ok do
if t^.inf<=t^.next^.inf then
t:=t^.next
else
ok:=false;
Result:=ok;
end;
end;
{процедура которая должна объединять 2 упорядоченных по возрастанию списка в один упорядоченный по возрастанию}
Procedure Obied2list(h1,h2:Tptr);

var
t1,t2,z:Tptr;
begin
if IsOrderUp(h1) and IsOrderUp(h2)
then
begin
t1:=h1;
t2:=h2;
while (t1^.next<>nil)(t2^.next<>nil) do
if t1^.inf<=t2^.inf then
z^.inf:= t2^.inf
else
z^.inf:=t1^.inf
end;
end;
{главная программа}
begin
SetConsoleCp(1251);
SetConsoleOutputCP(1251);
if isOrderUp(head1) then
writeln('первый список упорядочен по возрастанию')
else
writeln('первый список не упорядочен');
if isOrderUp(head2) then
writeln('второй список упорядочен по возрастанию')
else
writeln('второй список не упорядочен');
Obied2List(head1,head2);

end.