ЛИНЕЙНЫЙ СПИСОК

[kalosha-stepa]

Составить программу ввода с клавиатуры целых чисел, количество которых определяется константой, и сформировать из них список, упорядоченный по неубыванию значений элементов
Это нерекурсивная, в ней надо исправить и помочь с составлением рекурсивной. Помогите пожалуйста!!!Заранее спасибо!

program z1;

const n=5;

type
  Chain = ^elem;
  Elem = record
    data: integer;
    next: chain;
  end;

var
  first: chain;
  i,k: integer;
  
procedure form(var first: chain);
var
  temp: chain;
begin
      new(temp);
      readln(temp^.data);
      temp^.next := first;
      first := temp;
end;


procedure print(first: chain);
var
  temp: chain; p: integer;
begin
  temp := first;
  while temp <> nil do
  begin
    write(temp^.data, ' ');
    temp := temp^.next;
  end;
end;

procedure Ins(var first: Chain;k:integer);
 var Pred, post, temp: chain;
begin
 new(temp);
 temp^.data:=k;
  if (k<first^.data) then
   begin
    temp^.next:= first;
    first:=temp;
   end
  else
   begin
    pred:=first;
    post:=post^.next;
   end;
  temp^.next:=post;
  pred^.next:=temp;
 end;


begin
  first := nil;
for i:=1 to n do form(first);
  print(first);
  ins(first,k);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Sciv]

Чей-то не совсем понял, к чему тут рекурсию прикручивать? Разве что к сортировке...

[kalosha-stepa]

Мне бы хотя без рекурсии для начала бы эту прогу исправить