паскаль.найти элементы массива

[belka1]

найти максимальный и минимальный элементы массива

длинна массива 11

тип элементов integer

[ОДИНОЧЕСТВО В СЕТИ]

min:=mas[1];
max:=mas[1];
for i:=2 to 11 do
begin
if mas[i]>max then max:=mas[i];
if mas[i]<min then min:=mas[i];
end;
Writeln(max);
Writeln(min);