Программа на Pascal

Помогите пожалуйста

Составьте программу для нахождения простых чисел из интервала [a;b]. Простое число определить с помощью подпрограммы:

program prost;
var
i,n,k: integer;
begin
read(n);
k:=0;
for i:=2 to n div 2 do
if n mod i=0
then k:=k+1;
if k=0
then writeln (‘n простое число’)
else writeln (‘n не простое число’)
end.