С клавиатуры вводится число от 1 до n. Посчитать среднее арифметическое простых чисел — Pascal(Паскаль)

uses crt;
var n,i,j,k:longint;
    sr:real;
    f:boolean;
begin
clrscr;
repeat
write('Введите число больше 1 n=');
readln(n);
until n>1;
writeln('Простые числа на интервале 1-',n);
sr:=0;k:=0;
for i:=2 to n do
 begin
  f:=true;j:=2;
  while (j<=round(sqrt(i)))and f do
   begin
    if i mod j=0 then f:=false;
    j:=j+1;
   end;
  if f then
   begin
    write(i,' ');
    sr:=sr+i;
    k:=k+1;
   end;
 end;
writeln;
write('Их среднее=',sr/k:0:2);
readln
end.