Дан массив состоящий из 15 чисел.найти среди них максимальный и минимальный элемент.

Program gt;
var i,max,min:integer;
a:array[1..15]of integer;
begin
for i:=1 to 15 do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=1 to 15 do
begin
if(a[i]>max)then max:=a[i];
if(a[i]<min)then min:=a[i];
end;
writeln(min,' ',max);
end.