Проверка, является ли введенное с клавиатуры целое число простым — Pascal(Паскаль)

program prost;
var
     n: integer;
     d: integer;
     r: integer;
begin
     write('Введите целое число-> ');
     readln(n);
     d:=2;        { сначала будем делить на два }
     repeat
          r:=n mod d;
          if r<>0 { n не разделилось нацело на d }
               then d:=d + 1;
     until r=0; { пока не нашли число, на которое делится n }
     if d=n 
          then writeln( n,' - простое число. ')
          else writeln(n,' - не простое число.');
end.

function simple(x: integer): boolean; { процедура проверки числа на "простоту" }
label 1;
var
  i: longint;
  result: boolean;
begin
  if (x = 1) or (x = 0) then
  begin
    result := false;
    goto 1;
  end;
  for i := 2 to x div 2 do
    if x mod i = 0 then
    begin
      result := false;
      goto 1;
    end;
  result := true;

1:
  simple := result;
end; { ***конец процедуры проверки числа на "простоту" }