Написать программу которая вводит с клавиатуры пять вещественных чисел и вычисляет их среднее арифметическое, минимальное и максимальное значение — Pascal(Паскаль)

Uses Crt;
const n=5
var 
 a: array[1..n]of Real;
 i,min,max,s,ar: Real;
BEGIN
 ClrScr;
 for i:=1 to n do
  Read(a[i]);
 min:=0;
 max:=0;
 for i:=1 to n do
  Begin
  if a[i]<min then min:=a[i];
  if a[i]>max then max:=a[i];
  end;
Writeln('Min =', min);
Writeln('Max =', max);
 s:=0;
 for i:=1 to n do
  s:=s+a[i];
 ar:=s/5;
Writeln('Srednee arifmeticheskoe =',ar);
ReadKey;
END.