Помоигте с задачей на массив

[Андрюха из ПХТТ]

Условие: Дан массив из 10 целых чисел. Найти наибольший и наименьший элемент данного массива

program mas;
var a:array [1..10] of integer;
min, max,i:integer;
begin {ввод}
for I:=1 to 10 do
read (a[i]);
{поиск минимума}
min:=a[1];
for i:=2 to 10 do
if min>a[i] then min:= a[i];
{поиск максимума}
max:=a[1];
for i:=2 to 10 do
if max<a[i] then max:= a[i];
end.

[Juhn]

Спасибо Андрюха из ПХТТ, но в программе просто показывается пустое окно, что я должен ввести ?

[puporev]

program mas;
var a:array [1..10] of integer;
min, max,i:integer;
begin {ввод}
writeln('Введите десять целых чисел');
for I:=1 to 10 do
read (a[i]); 
{вводи с клавиатуры десять чисел через пробел после 10-го числа нажми Enter
или напиши вместо read (a[i]); 
writeln('a[',i,']=');//здесь внимательно поставь апострофы и запятые
readln(a[i]);}
{поиск минимума}  
min:=a[1];
for i:=2 to 10 do
if min>a[i] then min:= a[i];
{поиск максимума}
max:=a[1];
for i:=2 to 10 do
if max<a[i] then max:= a[i];
writeln('min=',min);
writeln('max=',max);
readln
end.

[Juhn]

Спасибо, разобрался