Динамические структуры данных Опции

[Pascal 2007.0]

Пожалуйста, помогите решить задачу :
Описать процедуру (и проверить ее), которая по списку L строит два новых списка:
L1 – из положительных элементов;
L2 – из остальных элементов списка L (тип элементов – real ) .

[volvo]

Значит, пересмотри структуру программы. У тебя одинаковые действия (создание списка) делаются в двух разных местах программы, хотя можно было бы сделать в одном... Реализуй процедуру, которая вставляет передаваемый ей элемент в так же передаваемый список (НЕ вводить элемент с клавиатуры внутри процедуры, ТОЛЬКО добавлять его в список !!!):

Procedure add_item(item: real; var list: tp);
begin
  { ... }
end;

, с ее помощью будет гораздо проще реализовать и заполнение первоначального списка, и раскидывание элементов одного списка на два других...