Нарисовать блок-схему

type
  tList = ^rList; rList = record n : Integer; x : tList; end;
  
function CreateList : tList;
var L, tmp : tList; i, n : Integer;
begin
  Write('Число элементов списка: n = '); ReadLn(n);
  if n < 1 then CreateList := nil
  else begin
    Write('Через пробел элементы списка: '); New(L); Read(L^.n); tmp := L;
    for i := 2 to n do begin New(tmp^.x); tmp := tmp^.x; Read(tmp^.n); end;
    tmp^.x := nil; CreateList := L;
  end;
end;
  
procedure OutList(L : tList);
begin
  if L = nil then WriteLn('пусто')
  else begin repeat Write(#32, L^.n); L := L^.x; until L = nil; WriteLn; end;
end;
 
function CopyList(L0 : tList; from : Integer) : tList;
var L, tmp : tList;
begin
  L := nil; while (from > 1) and (L0 <> nil) do begin Dec(from); L0 := L0^.x; end;
  if L0 <> nil then
    begin
      New(L); L^.n := L0^.n; tmp := L; L0 := L0^.x;
      while L0 <> nil do begin New(tmp^.x); tmp := tmp^.x; tmp^.n := L0^.n; L0 := L0^.x; end;
      tmp^.x := nil;
    end;
  CopyList := L;
end;
 
var
  L1, L2 : tList;
  n : Integer;
begin
  L1 := CreateList;
  Write('L1 = '); OutList(L1);
  Write('Копировать начиная с: n = '); ReadLn(n);
  L2 := CopyList(L1, n); Write('L2 = '); OutList(L2);
end.