Program p1;
Uses Crt;
var
m:array[1..100]of integer;
n,i,sum,su:integer;
sr:real;
begin
clrscr;
writeln('Введите кол-во людей');
readln(n);
clrscr;
writeln('Сколько кому лет');
for i:=1 to n do begin
m[i]:=random[40];
sum:=sum+m[i];
if m[i]<20 then su:=su+m[i];
write(m[i]:3);
end;
writeln;
sr:=sum/n;
writeln('общий возраст - '+sr:3:3);
sr:=su/n*100;
writeln('% тех, кто младше 20 - '+sr:3:3);
readln;
end.
в проге в конце влазит ошибка помогите оч срочно нужно