В неупорядоченном списке поменять местами элементы с минимальным и максимальным значением ключа

Program Spisok;
{programma ydaliaet element,stoyaschii pered predposlednim elementom spiska}
uses crt;
type u=^zap;                 {stryktyra elementa spiska}
     zap=record
           inf:integer;
           ukz:u;
         end;
var PSP:u;                {ykazatel spiska}
    ch:char;
 
procedure Create_Spisok (var PSP:U);
{sozdanie neyporiadochnogo spiska}
Var Q,     {ykazatel predidyschego elementa spiska}
    P:U;   {ykazatel tekyschego elementa spiska}
    Ch:Char;
begin
     New(Q);
     WriteLn('Введите элемент списка*' );
     ReadLn(Q^.INF);
     PSP:=Q;    {PSP- ykazatel spiska (adres pervogo elementa)}
     WriteLn('Продолжить ввод? y/n');
     Ch:=ReadKey;
     While Ch in ['y','Y','h','H'] do
     begin
       New(P);
       WriteLn('Введите элемент списка*' );
       ReadLn(P^.INF);
       Q^.UKZ:=P;
       Q:=P;
       WriteLn('Продолжить ввод? y/n');
       Ch:=ReadKey;
       End;
       Q^.UKZ:=Nil
End;
procedure print_Spisok(PSP:u);
{procedyra pechati elementov spiska.PSP- ykazatel spiska }
var t:u;
  begin
    if PSP=nil then
    begin
      WriteLn('список пуст' );
      ReadKey;
      Exit;
    end;
    Writeln('содержимое списка*: ' );
    t:=PSP;
    while t<>nil do
    begin
      write(t^.inf,' --> ');
      t:=t^.ukz;
    end;
    WriteLn('NIL' );
    WriteLn('Нажмите любую клавишу ' );
    Readkey;
end;
 
procedure destroy_spisok(var PSP:u);
{procedura osvobogdenia pamiati,zaniatoi elementami spiska. PSP- ykazatel spiska }
var t:u;
begin
  while PSP<>nil do
  begin
    t:=PSP;
    PSP:=PSP^.ukz;
    dispose(t);    {osvobogdenie pamiati}
  end;
end;
 
 
 
 
procedure pomenyat_element(var PSP:u);
  var
   last,min, max, t : u;
  begin
 
    if (PSP<>nil) or (PSP^.ukz<>nil) then {Если список не пуст}
    begin
      last:=PSP;
      min:=PSP;
      max:=PSP;
      while last^.ukz<>nil do 
      begin
          if last^.inf > max^.inf then
            max:=last;
          if last^.inf < min^.inf then
            min:=last;
          last:=last^.ukz 
      end;
    
    
    end else begin
    WriteLn(' В списке меньше двух элементов');
    print_Spisok(PSP);
    exit;
    end;
  end;
 
 
begin
   PSP:=nil;
  repeat
    ClrScr;
    WriteLn('1- Создать список ' );
    WriteLn('2- Просмотреть список ' );
    WriteLn('3- Удалить все отрицательные элементы списка ' );
    WriteLn('4- Удалить список ' );
    WriteLn('________________________________________ ' );
    WriteLn('0- Выход ' );
    WriteLn;
    Write ('Ваш выбор: ' );
    ch:=readkey;
    WriteLn(ch);
    WriteLn;
    case ch of
      '1': begin
              psp:=nil;
              create_Spisok(PSP);
           end;
      '2': Print_Spisok(PSP);
  
      '3': begin
           pomenyat_element(PSP);
           Writeln('Элементы удалены ');
           ReadKey;
           end;
      '4':begin
             destroy_spisok(PSP);
             Writeln('Список удалён!!! ');
             ReadKey;
          end;
      end; {case}
    until ch= '0';
end.