Нужно решить : найти максимальное и минимальное число (блок схема и программа) работаем в паскале

если водится 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]<min then min:=a[i];

if a[i]>max then min:=a[i];

end;

writeln('min=',min,'max=',max);

end.