[Pascal] Добавить элемент.

[Kamelok]

Здравствуйте, как добавить в список после максимального элемента минимальной. Программа работает только меняет их местами, а не как надо мне.

uses crt;
type
PNode=^Node;
Node=record
 data:integer;
 next:PNode;
end;
var
Head:PNode;
i:integer;
 
procedure AddToSpis(var Head1:PNode;k:integer);
var
tmp:PNode;
begin
  if Head1=nil then
    begin
      New(Head1);
      tmp:=Head1;
    end
  else
     begin
       tmp:=Head1;
         while tmp^.next <> nil do
           tmp:=tmp^.next;
         New(tmp^.next);
         tmp:=tmp^.next;
     end;
  tmp^.next:=nil;
  tmp^.data:=k;
end;
procedure Print(Head1:PNode);
begin
   while Head1 <> nil do
     begin
       write(Head1^.data:4);
       Head1:=Head1^.next;
     end;
end;
procedure FreeSpis(var Head1:PNode);
var
tmp:PNode;
begin
  while Head1 <> nil do
     begin
       tmp:=Head1;
       Head1:=Head1^.next;
       Dispose(tmp);
     end;
end;
procedure SearchAndChange(var Head1:PNode);
var
min,max,tmp,tmp1:PNode;
k:integer;
begin
  min:=Head1;
  max:=Head1;
  tmp1:=Head1;
    while tmp1^.next <> nil do
      begin
        tmp:=tmp1^.next;
          if tmp^.data > max^.data then
             max:=tmp;
          if tmp^.data < min^.data then
             min:=tmp;
        tmp1:=tmp1^.next;
      end;
  k:=min^.data;
  min^.data:=max^.data;
  k:=max^.data;
end;
 
begin
  Head:=nil;
    writeln('Ввод чисел, признак окончания число 0 ');
    read(i);
    repeat
      AddToSpis(Head,i);
      read(i);
    until i=0;
    ClrScr;
  writeln('Сформированный список');
  Print(Head);
  writeln;
  writeln('Изменнёный список');
  SearchAndChange(Head);
  Print(Head);
  FreeSpis(Head);
end.

[Serge_Bliznykov]

Сообщение от Kamelok

Программа работает только меняет их местами, а не как надо мне.

не меняет. в ней ошибка.

надо вместо

Сообщение от Kamelok

k:=max^.data;

написать

max^.data:=k;

Сообщение от Kamelok

Здравствуйте, как добавить в список после максимального элемента минимальной

поясните, а что должно произойти с самим минимальным?
если дана очередь
5 2 17 3 4
что должно получиться в итоге?

[Kamelok]

Сообщение от Serge_Bliznykov

поясните, а что должно произойти с самим минимальным?
если дана очередь
5 2 17 3 4
что должно получиться в итоге?

5 17 2 3 4

После максимального должно написать минимальное