Из заданного интервала натуральных чисел определить все простые числа- Pascal(Паскаль)

Uses
 CRT;
Var
 n,m,i,j:integer;
 t:boolean;
begin
repeat
 write('Интервал: ');
 readln(n,m);
 if n>m then writeln('Ошибка интервала ');
until n<m;
for i:=n to m do
begin
 t:=true;
 if i>1 then
 begin
  for j:=2 to i div 2 do
    if i mod j =0 then t:=false;
 if t then write(i:5);
end;
end;
readkey
end.