program tp4;
uses wincrt;
type table=array[1..100] of char;
var
n:integer;
T:table;


{-----------------------lecture du tableau--------------------------}
procedure lecture(var T:table;n:integer);
var
i:integer;
begin
for i:=1 to n do
    begin
    write('Entrez la valeur ',i,' : ');
    readln(T[i]);
    end;
end;

{-----------------------min--------------------------}
function min(var T:table;n:integer):char;
var
i:integer;
temp:char;
begin
temp:=T[1];
for i:=2 to n do
    begin
    if (T[i]<temp) then temp:=T[i];
    end;
min:=temp;
end;
{-----------------------max--------------------------}
function max(var T:table;n:integer):char;
var
i:integer;
temp:char;
begin
temp:=T[1];
for i:=2 to n do
    begin
    if (T[i]>temp) then temp:=T[i];
    end;
    max:=temp
end;
{-----------------------Algorithme--------------------------}
Begin
writeln('Entrez la taille du tableau (de 1 à 100) : ');
readln(n);
lecture(T,n);
writeln('Le min : ',min(T,n),' / Le max : ',max(T,n));

end.