Нахождение первого из минимальных и последнего из положительных элементов списка

{
Задача:
  Дан список из n целых чисел a1, a2, ..., an. Поменять местами первый из
  минимальных и последний из положительных элементов списка
 
program laba_10;
type
  list = record
         info: integer;
         next, pred: ^list;
         end;
  plist = ^list;
var
  head, tail: plist;
 
{Процедура MakeRandomList создает двусвязный список из случайного
 количества элементов, из случайных целых чисел, с двумя сторожами}
procedure MakeRandomList(var head, tail : ^list);
var
  p       : ^list;
  i, info : integer;    //Счетчик и значение info элементов
  number  : integer;    //Количество элементов
begin {MakeList}
  //создаем сторожей
  new(head);
  new(tail);
  head^.next := tail;
  tail^.pred := head;
  number := random(5,10);  //Задаем случайное количество элементов
 
  for i := 1 to number do  //Заполняем список случайными числами
    begin
      info := random(199) - 100;
      new(p);
      p^.info := info;
      p^.next := tail;
      p^.pred := tail^.pred;
      p^.pred^.next := p;
      tail^.pred := p;
    end;
end;  {MakeList}
 
{Процедура выводит список на экран}
procedure Printlist(head,tail:plist);
var
  p : plist;
begin  {Printlist}
  p := head^.next;
  while p <> tail do
  begin
    write(p^.info : 5);
    p := p^.next;
  end;
end; {Printlist}
 
{Процедура находит первый из минимальных и последний из положительных элементов списка, и меняет их местами}
procedure ExanMinMax(head, tail: plist);
var
  temp1,temp2:list;
  p, l, q : plist;
  firstmin,lastpos : integer; // Первый из  минимальных и последний из положительных элементов списка
begin {ExanMinMax}
  p := head^.next;       // Пропускаем головного сторожа
  l := p;
  while p <> tail do    // Пока р не дошел до хвоста
    begin
      if p^.info < firstmin then
      begin
          firstmin := p^.info;
          l := p;
      end;
      if p^.info > 1  then
        begin
          q := p;
          lastpos := p^.info;
        end;
      p := p^.next;
    end;
  // Обмен максимального положительного с минимальным значением элемента
  
  writeln;
  writeln('Последний положительный из элемент:', q^.info:5);
  writeln('Минимальный элемент:', l^.info : 5);
end;  {ExanMinMax}
 
 
Begin
  randomize;
  MakeRandomList(head, tail);
  writeln('Исходный список случайных чисел:');
  PrintList(head,tail);
  ExanMinMax(head,tail);
  writeln();
  writeln('Список со сменой первого из минимальных и последнего из положительных элементов списка:');
  PrintList(head,tail);
End.

var
  p, l, q : plist;
  firstmin : integer; // Первый из  минимальных и последний из положительных элементов списка
begin {ExanMinMax}
  firstmin := maxint;  // инициализировать значение не забываем
  p := head^.next;       // Пропускаем головного сторожа
  l := p;
  while p <> tail do    // Пока р не дошел до хвоста
    begin
      if p^.info < firstmin then
      begin
          firstmin := p^.info;
          l := p;
      end;
      if p^.info > 1  then
        begin
          q := p;
        end;
      p := p^.next;
    end;
  // Обмен максимального положительного с минимальным значением элемента
  
  writeln;
  writeln('Последний из положительных:', q^.info:5);
  writeln('Первый из минимальных:', l^.info : 5);
  
  var t : integer := q^.info;
  q^.info := l^.info;
  l^.info := t;
end;  {ExanMinMax}