Вставить после каждого нечетного элемента первого списка наибольший элемент второго списка

uses crt;
type Ptr=^count;
     count=Record
           Key:integer;
           Next:ptr;
          end;
procedure spisok(var first,p:ptr);
var n,i:integer;
    q:ptr;
begin
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
new(p);
first:=p;
p^.next:=nil;
p^.key:=1+random(99);
q:=p;
for i:=2 to n do
 begin
  new(p);
  p^.key:=1+random(99);
  p^.next:=nil;
  q^.next:=p;
  q:=p;
 end;
end;
procedure print(first,p:ptr;s:string);
begin
//выводим его на экран
writeln(s);
p:=first;
while (p<>nil) do
 begin
  write(p^.key,' ');
  p:=p^.next;
 end;
writeln;
end;
var s1,s2,first1,first2,l,q:ptr;
    k,mx,mn:byte;
begin
randomize;
spisok(first1,s1);
print(first1,s1,'Исходный список 1');
spisok(first2,s2);
print(first2,s2,'Исходный список 2');
mn:=100;
mx:=0;
s2:=first2;
while (s2<>nil) do
 begin
  if s2^.key<mn then mn:=s2^.key;
  if s2^.key>mx then mx:=s2^.key;
  s2:=s2^.next;
 end;
writeln('Минимальный=',mn,' максимальный=',mx);
//вставляем в 1 сисок после нечетных максимум, после четных минимум
s1:=first1;
while s1<>nil do
 begin
  k:=s1^.key; //смотрим значение
  new(l);
  q:=s1^.next;
  s1^.next:=l;
  l^.next:=q;
  if k mod 2=0 then l^.key:=mn//вставляем min
  else l^.key:=mx;//вставляем max
  s1:=l^.next;
 end;
//выводим полученный список
print(first1,s1,'Вставка элементов в список 1');
end.