если водится n чисел то вот программа
program maxmin;
var a:array[1..1000]of longint;
i,n,max,min:longint;
begin
read(n);
for i:= 1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to n do
begin
if a[i]
if a[i]>max then min:=a[i];
end;
writeln('min=',min,'max=',max);
end.