Вывести на экран все простые числа до заданного числа м(включительно)

program prost; vari,m,j,k: integer; begin readln(m); for i:= 2 to m do begin  k:=  0; for j:= 2 to m-1 do  if i mod j  = 0 then  k:=k+1; if k<2 then  write(i,' '); end; end.