Однонаправленные списки.Написать подпрограмму,которая добавляет в конец списка А1 элементы списка А2 со значением больше за 3

type
 
//Тип, описывающий элемент 1го списка
tip_elem1=^elem;
elem=record
info:integer;
next1:tip_elem1;
end;
//Тип, описывающий элемент 2го списка.
tip_elem2=^elem2;
elem2=record
info2:integer;
next2:tip_elem2;
end;
//Тип, описывающий однонаправленный список.
list1=record
beg1:tip_elem1;
last1:tip_elem1;
end;
 
list2=record
beg2:tip_elem2;
last2:tip_elem2;
end;
 procedure add2(var p_list:list2; const p_elem:tip_elem2);
begin
if p_elem=nil then exit;
p_elem^.next2:=nil;
if p_list.beg2=nil then
p_list.beg2:=p_elem
else
p_list.last2^.next2:=p_elem;
p_list.last2:=p_elem;
end;
procedure add1(var p_list:list1; const p_elem:tip_elem1);
begin
if p_elem=nil then exit;
p_elem^.next1:=nil;
if p_list.beg1=nil then
p_list.beg1:=p_elem
else
p_list.last1^.next1:=p_elem;
p_list.last1:=p_elem;
end;
 
//Удаление однонаправленного списка из памяти и инициализация.
procedure list1_free(var p_list:list1);
var
next1, del1:tip_elem1;
begin
if p_list.beg1=nil then Exit;
next1:=p_list.beg1;
while next1<>nil do begin
del1:=next1;
next1:=next1^.next1;
dispose(del1);
end;
p_list.beg1:=nil;
p_list.last1:=nil;
end;
procedure list2_free(var p_list:list2);
var
next2, del2:tip_elem2;
begin
if p_list.beg2=nil then Exit;
next2:=p_list.beg2;
while next2<>nil do begin
del2:=next2;
next2:=next2^.next2;
dispose(del2);
end;
p_list.beg2:=nil;
p_list.last2:=nil;
end;
 
//Распечатка однонаправленного списка.
procedure pechat_list1(const p_list:list1);
var
p_elem:tip_elem1;
i:integer;
begin
if p_list.beg1=nil then begin
Writeln('Spisok pust.');
Exit;
end;
p_elem:=p_list.beg1;
i:=0;
while p_elem<>nil do begin
inc(i);
if i>1 then Write(' ');
write(p_elem^.info);
p_elem:=p_elem^.next1;
end;
writeln;
end;
procedure pechat_list2(const p2_list:list2);
var
p2_elem:tip_elem2;
i:integer;
begin
if p2_list.beg2=nil then begin
Writeln('Spisok pust.');
Exit;
end;
p2_elem:=p2_list.beg2;
i:=0;
while p2_elem<>nil do begin
inc(i);
if i>1 then Write(' ');
write(p2_elem^.info2);
p2_elem:=p2_elem^.next2;
end;
writeln;
end;
var
odn_list:list1;
p_elem:tip_elem1;
 
odn_list2:list2;
p2_elem:tip_elem2;
 
i:integer;
M:word;
begin
//Начальная инициализация списков.
odn_list.beg1:=nil;
odn_list.last1:=nil;
odn_list2.beg2:=nil;
odn_list2.last2:=nil;
writeln('Vvedite kol-vo elementov');
readln(M);
//Создаём однонаправленный список.
randomize;
for i:= 1 to M do begin
new(p_elem);
p_elem^.info:=random(50)-25;
add1(odn_list,p_elem);
end;
randomize;
for i:= 1 to M do begin
new(p2_elem);
p2_elem^.info2:=random(50)-25;
add2(odn_list2,p2_elem);
end;
//Распечатываем однонаправленный список.
writeln('Odnonapravleniy spisok1:');
pechat_list1(odn_list);
writeln;
writeln('Odnonapravleniy spisok2:');
pechat_list2(odn_list2);
 
//Добавляем элементы списка
 
 
//Удаляем списки из памяти.
list1_free(odn_list);
list2_free(odn_list2);
 
writeln('Spiski udaleni.');
readln;
end.

program List;
uses
  crt;
type
  PNode = ^Node;
  Node  = record
  Data : integer;
  Next : PNode;
  end;
  TList = record
  First, Last : PNode;
  end;
procedure InitList(var aList : TList);
begin
  aList.First := nil; aList.Last := nil;
end;  
procedure AddList(var aList : TList; a : integer);
var PElem : PNode;
begin
  New(PElem);
  PElem^.Data := a;
  PElem^.Next := nil;
  if aList.First = nil then
   begin
    aList.First := PElem;
    aList.Last := aList.First;
   end
  else
   begin
    aList.Last^.Next := PElem;
    aList.Last := PElem;
   end;   
  aList.Last^.Next := nil; 
end;
procedure PrintList(aList : TList);
begin
  if aList.First = nil then begin
   writeln('List empty.');
   exit;
  end;
  while aList.First <> nil do begin
   write(aList.First^.Data:4);
   aList.First := aList.First^.Next;
  end;
  writeln;
end;
procedure AddElemList(var aList1 : TList; aList2 : TList);
begin
  while aList2.First<>nil do begin
   if aList2.First^.Data > 3 then AddList(aList1,aList2.First^.Data);
   aList2.First := aList2.First^.Next;
  end;
end;
procedure FreeMem(aList : TList);
var PElem : PNode; 
begin
  while aList.First <> nil do begin
   PElem := aList.First;
   aList.First := aList.First^.Next;
   dispose(PElem);  
  end;
end;
var
  A1, A2 : TList;
  M, i : byte;
begin
  clrscr;
  write('Количество элементов списка А1 : ');
  readln(M);
  InitList(A1);
  randomize;
  for i := 1 to M do AddList(A1,(-1)*random(30));
  writeln('List A1 : ');
  PrintList(A1);  
  write('Количество элементов списка А2 : ');
  readln(M);
  InitList(A2);
  for i := 1 to M do AddList(A2,random(20));
  writeln('List A2 : ');
  PrintList(A2);  
  AddElemList(A1,A2);
  writeln('List A1 : ');
  PrintList(A1);
  FreeMem(A1);
  FreeMem(A2);
  readln;
end.