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

var
n:longint;
k,f:integer;
begin
readln(n);
k:=1;
repeat
inc(k);
if n mod k=0 then f:=1;
until k>n div 2;
if f=0 then writeln('prostoe')else writeln('sostavnoe');
readln;
end.