Составить программу выводящую на экран все простые числа лежащие в диапазоне между двумя числами выделенными пользователем- Pascal(Паскаль)

uses crt;

var
  n, k1, k2, del, rez: integer;

begin
  writeln('1 shislo');
  readln(k1);
  writeln('2 shislo');
  readln(k2);
  for n := k1 to k2 do
  begin
    if n > 1 then
    begin
      del := 2;
      repeat
        rez := n mod del;
        if rez <> 0 then
          del := del + 1;
      until rez = 0;
    end;
    if n = del then
      write(n:3);
  end;
  readln;

end.