我说，如果真是高手这题根本看也不会看的。。。。。。
问题2：可以用eoln来判断是否换行，布尔值函数。
1：这个程序确实很奇怪，我又编了一个，你看看吧
type
  pp=^ll;
  ll=record
       data:integer;
       next:pp;
     end;
var
  head,q,p:pp;
  i,j,k,l,m,n,x:longint;
begin
  read(x);
  new(head);head^.data:=x;head^.next:=nil;
  while not eoln do
    begin
      read(x);
      p:=head;
      if p^.data<=x then
      while p^.next<>nil do
        begin
          if (p^.data<=x)and(p^.next^.data>=x) then break;
          p:=p^.next;
        end;
      if(p=head)and(p^.data>x) then begin
                                      new(q);
                                      q^.data:=x;
                                      q^.next:=p;
                                      head:=q;
                                      continue;
                                    end;
      if(p^.next=nil)and(p^.data<=x) then begin
                                            new(q);
                                            q^.data:=x;
                                            p^.next:=q;
                                            q^.next:=nil;
                                            continue;
                                          end;
      new(q);q^.data:=x;
      q^.next:=p^.next;
      p^.next:=q;
    end;
  while head<>nil do
    begin
      write(head^.data,' ');
      head:=head^.next;
    end;
end.

你真是一个大好人!我简直太感谢了!
可是我只有一本pascal初级学本,从来未见过continue.break等等.
我不知道他们是什么意思,但我既然见到了,我就知道他们的存在,我会搞清楚他们的用法的.还是感谢,兼想交个朋友.

break，直接退出当前循环，如for,while,repeat，注意，不是退if什么的哦
continue，和break相近，就是退出当前循环（当前的，break是全部），做下一轮的，比如
j:=1;
for i:=1 to 2 do
  begin
    if i=1 then continue;
    j:=0;
  end;
那么j是0
还有exit，退出当前过程（procedure,function)，在主程序中调用的话，和halt功能一样
halt，全部结束（强）
我不觉得自己RP很好，你又不了解我
交朋友的话，qq136308584
但是有问题论坛上提好了，加了qq也几乎不说话的，我有经验