Задачи на поиск в одномерном массиве

const n=10;
var a:array[1..n] of integer;
i:integer;
max:integer;
begin
for i:=1 to n do begin
a[i]:= -11 + random(67);
writeln(a[i]:2);
end;
max:=a[i];
for i:=1 to n do
if max<a[i] then max:=a[i];
write('Max=',max);
end.

const n=30;
var a:array[1..n] of integer;
i:integer;
min:integer;
begin
Begin
Writeln ('введите',n,'чисел');
For i:=1 To n Do 
begin
writeln('Введи число в массив ',i,':');
readln(a[i]);
end;
for i:=1 to n do
write(a[i]:2);
min:=a[i];
for i:=1 to n do
if min>a[i] then min:=a[i];
write('Min=',min);
end; end.

min:=a[i];
max:=a[i];

For i:=2 To n Do

for i:=1 to n do
 write(a[i]:2); // прокрутился цикл, значение i должно быть неопределённо, но обычно компиляторы оставляют как есть
min:=a[i]; // то есть i=n, что вообще то не то что нужно.
// а если нарветесь на правильный компилятор, то получите мусор в i