задание...
дано два линейных списка, А1 и А2, сделать подпрограмму которая будет в конец списка А1 кидать все элементы списка А2.
накалякал я такое
program pmf;
uses crt;
type
TEl = ^El;
El = record
i: integer;
next: TEl;
end;
var
A1,A2,A3: TEl;
i1,i2,j: integer;
begin
clrscr;
Randomize;
i1:= Random(10);
writeln('Dlina spiska A1 - ', i1);
for j:=1 to i1 do {3a/7oJIHaem A1}
begin
A1^.i:=random(10)-10;
write(A1^.i,' ');
end;
writeln;
i2:=random(10);
writeln('Dlina spiska A2 - ', i2);
for j:=1 to i2 do {3a/7oJIHaem A2}
begin
A2^.i:=random(10);
write(A2^.i,' ');
end;
writeln;
Readln;
end.
а как функцию правельно сделать незнаю((