Линейные списки Опции

[Xrymz]

читал я фак... немного понял.. но не все...
задание...
дано два линейных списка, А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.

а как функцию правельно сделать незнаю((

[volvo]

Renbo, то есть, ты хочешь сказать, что для того, чтобы добавить один элемент в конец списка длины N, я должен произвести (N - 1) операцию присваивания, и столько же - сравнения вместо того, чтобы элементарно увеличить размер программы на 4 (ЧЕТЫРЕ) байта, и этого избежать ???

[Renbo]

я написал просто пример, с целью просто продемонстрировать. Короче или длиннее - это на его усмотрение, главное понять суть