Списки, простая задачка, доделайте пожалуйста! Pascal.

[Impulsive]

Доделайте пожалуйста лабу, препод подсказал немного, я тут набросал... Но чет не то...

Описать процедуру или функцию, которая:
Добавляет в конец списка L1 все элементы списка L2.

Код: Выделить всё

procedure create (n,k:integer);
 tupe person=record;
 f,l:string;
 end;
 var L1:array[1..1000] of person;
     L2:array[1..1000] of person;
     i:integer;
begin
 for i:=1 to n do
     with L1[i] do
         readln(f);
         readln(l);
 end;
 for i:=1 to k do
     with L2[i] do
         readln(f);
         readln(l);
 end;
end;

begin
  for i:=1 to k do
  begin
  L1[n+i].f:=L2[i].f;
  L2[n+i].l:=L2[i].l;
  end; n:=n+k;
  end;

Сделайте пожалуйста, чтоб это заработало как полноценная работа. мало времени... Спасибо!..

[MOTOCoder]

Конечно не то.
Список, это структура динамическая, массив тут не пойдет.

[Impulsive]

Ну вот, а как теперь

[MOTOCoder]

Почитайте про списки, посмотрите темы здесь, может разберетесь.