паскаль. Динамические данные

[Антон Лысенко]

как написать цикл что бы в однонаправленном списке сравнивать два соседних элемента?Мне надо проверить на упорядоченность в обратном порядке, типа так:15 14 13... Мне трудно понять как имея названия только первого и последнего элемента обращаться к остальным элементам. У меня первый элемент Head и последний Last. Логически я понимаю как всё сделать но с языком проблемы, если бы это были статистические данные и обычный массив, то проблем вообще не было.

[Антон Лысенко]

люди, я не лентяй, я делаю программу.Не подумайте что я хочу сразу готовый код. Вот мои труды:

program Lab_14;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type Sp=^SpC;
     SpC=record
      Inf:byte;
      Next:Sp;
      end;
var Head,Last,Buf,buf1:sp;
     flag:boolean;
procedure spchar(var Head:sp);
var
ch:char; sp1:sp;
begin
  repeat
    writeln('enter comand:i-input q-quit');
    read (ch);
      if (ch='i')xor(ch='I') then
        begin
          New(sp1);
          sp1^.Next:=nil;
          writeln('enter znachenie');
          readln(sp1^.inf);
            if Head=nil then
             begin
              Head:=sp1;
              Last:=sp1;
             end
            else
             begin
              Last^.Next:=sp1;
              Last:=sp1
             end;
        end;
  until(ch='q')xor(ch='Q');
  end;
begin
new(buf);
flag:=false;
buf^.inf:=head^.inf;
buf1:=head^.Next;
last^.inf:=buf1^.inf;
repeat
while (flag=false) do
 begin
 if (buf^.inf>last^.inf)then
   flag:=false
 else
   begin
     flag:=true;
     writeln('spisok NE uporiadochen');
   end;

 end;
 until Buf^.next=nil;
 //ïðîâåðêà óïîðÿäî÷¸ííîñòè â îáðàòíîì ïîðÿäêå

 while Head<>nil do
   begin
      buf:=Head^.Next; //Head íà ñëåä. çíà÷åíèè
      dispose(Head);       //óäàëåíåå ïåðâîé ÿ÷åéêè
      Head:=buf;
   end;
readln;readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

я не зная как в основной программе сделать эту проверку.

[Антон Лысенко]

Люди посмотрите почему не могу создать список программ не задерживается на том что бы прочитать символ. Проверьте и увидете сами:

program Lab_14;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type Sp=^SpC;
     SpC=record
      Inf:char;
      Next:Sp;
      end;
var Head,Last,Buf:sp;
     flag:boolean;
procedure spchar(var Head:sp);
var
ch:char; sp1:sp;
begin
  repeat
    writeln('enter comand:i-input q-quit');
    read (ch);
      if (ch='i')xor(ch='I') then
        begin
          New(sp1);
          sp1^.Next:=nil;
          writeln('enter znachenie');
          readln(sp1^.inf);
            if Head=nil then
             begin
              Head:=sp1;
              Last:=sp1;
             end
            else
             begin
              Last^.Next:=sp1;
              Last:=sp1
             end;
        end;
  until(ch='q')xor(ch='Q');
end;
begin
   spchar(head);
   new(buf);
   buf:=head;
   flag:=true;
  while ((buf.next)<>nil) and flag do
       begin
          flag:=(buf.next^.inf>buf.inf);
          buf:=buf.Next;
       end;    //ïðîâåðêà óïîðÿäî÷¸ííîñòè â îáðàòíîì ïîðÿäêå

 while Head<>nil do
   begin
      buf:=Head^.Next; //Head íà ñëåä. çíà÷åíèè
      dispose(Head);       //óäàëåíåå ïåðâîé ÿ÷åéêè
      Head:=buf;
   end;
readln;readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Serge_Bliznykov]

по сути вопроса мне пока сказать нечего,

просто небольшой совет - или пропатчите кодовые таблицы в реестре,
или, просто включайте русский язык, когда будете копировать текст программы в буфер обмена - это позволит нормально скопировать русские комментарии..