Помогите решить задачу на Pascal

Помогите решить задачу на Pascal:
Выяснить, имеются ли среди чисел n, n+1, …, 2n близнецы,
т. е. числа, разность между которыми равна двум.
(Определить процедуру, позволяющую распознавать простые числа
(Делятся нацело на себя и на 1))
----------------------------------------------------
нужно решить задачу используя процедуру и функцию.
Никак не могу понять как это решить, заранее спасибо.

  • примени эту программу себе, осталось в цикле перебрать все возможные комбинации от Н до 2Н
    program prostoe; //простое число
    uses crt;
    var a:boolean;
    i:integer;
    function fl(k: integer): boolean;
    var i:integer;
    begin
    fl:=false;
    for i:=2 to trunc(sqrt(k+1)) do if k mod i = 0 then exit;
    fl:=true;
    end;
    BEGIN
    clrscr;
    write(' ввести целое число -->'); readln(i);
    a:= fl(i) ;
    write(' число ');
    if a then write(i,' простое ') else write(i,' не простое');
    writeln;
    writeln('конец задачи ');
    readkey;
    end.