Programmation Pascal

Salut je suis etudiant en programmation et j'aimerai trouver les erreurs de ce code.
Pourriez vous m'aider ?

j'ai envie de crée une function ou procédure étenche pour min et max

program affiche_seq2;
uses SeqInt;
/////////////////////////////////////////////////
function max(var x,max{,min}:integer):integer;

{min:=x;}
begin
if x > max
then
max:=x
{else
if x<min ;
then
min:=x;}
end;
writeln('Le Max est ' , max {, ' et le min est ' , min});

//////////////////////////////////////////////////


procedure aff(const s:TSeqInt);
var it:TSeqIter;
x:integer;
{max,min:integer;
maxetmin(x);}
begin

it:=TSeqIter.init(s);
{max:=0;
min:=0;}
while not it.AuBout do
begin
x:=it.ValeurCourante;
write(x:4);
result:=max(x);
{begin
if x > max
then
max:=x
else
if x<min
then
min:=x;

end;}

end;
writeln;
{writeln('Le Max est ' , max , ' et le min est ' , min);}
end;
//////////////////////////////////////////////////

var s:TSeqInt;
begin

s:=TSeqInt.create(quelconque);
writeln('Voici la sequence');
aff(s);
readln
end.