(turbo pascal) определите среднего арифметического 5 чисел

uses Crt;const  n=5;  a:array[1..5] of string=('первое','второе','третье','четвертое','пятое');var  i:integer;  s,m:real;begin  ClrScr;  Writeln('Вычисление среднего арифметического двух чисел.');  Writeln('Введите исходные данные:');  s:=0;  for i:=1 to n do begin    Write('Введите ',a[i],' число -> '); Read(m);    s:=s+m    end;  Write('Среднее арифметическое пяти введенных чисел равно: ');  m:=s/n;  Writeln(Trunc(m),',',Round(100*Frac(m)));  ReadKeyend.