помогите пж сделать лабу.
В паскале в последовательности чисел найти Максимальное и Минимальное. Поменять их местами. Задачу выполнить на динамическую память(списки).

Помогите пж написать продцедуру обмена местами на месте звездочек *****

program lab9;
uses crt;
type list=^t;
t=record
data:integer;
next:list;
head:list;
end;
var p,head,q:list;
max,min:integer;

procedure vvid(var p,head:list);
var x:integer;
q:list;
begin
writeln('Vvesit spusok');
p:=nil;{Spusok pystui}
readln(x);
if x<>0 then
begin
new(q);
q^.data:=x;
q^.next:=nil;
head:=q;
p:=q;
readln(x);
while x<>0 do
begin
new(q^.next);
q:=q^.next;
q^.data:=x;
q^.next:=nil;
readln(x);
end;
end;
writeln;
end;

procedure vuvid(p:list);
begin
while p<>nil do
begin
write(p^.data,' ');
p:=p^.next;
end;
end;

procedure prohid(p:list; var max,min:integer);
begin
max:=p^.data;
min:=p^.data;
while p<>nil do
begin
if p^.data>max then max:=p^.data;
if p^.data<min then min:=p^.data;
p:=p^.next;
end;
writeln('MAX=',max);
writeln('MIN=',min);
end;

******

{---MAIN---}
begin
clrscr;
vvid(p,head);
vuvid(p);
writeln;
prohid(p,max,min);


writeln('-----');
vuvid(p);
writeln;
writeln('-----');
readln;
end.