Составьте программу,определяющую лучший результат соревнований

В спортивных соревнованиях участвовало 15 спортсменов. Для удобства каждому присвоили продуктовый номер (от одного до пятнадцати включительно). Известно,сколько баллов набрал каждый спортсмен. Составьте программу,определяющую лучший результат соревнований.

writeln('Введите результат спортсмена');
for i:= 1 to 15 do
 begin
  writeln(a[i],'-й спортсмен ');
  readln(a[i]);
 end;
min:=a[1];
for i:=1 to 15 do
  if a[i]<min then
    min:=a[i];  

автор: student_63