(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)));   ReadKey end.