Помогите доделать программу на паскале

Помогите доделать программу на паскале
Найти все простые числа, не превосходящие натурального числа N, запись которых представляет палиндром. N задано и не больше 1000. Палиндром – число, которое имеет одинаковое изображение при чтении слева направо и справа налево.

uses crt;
var n,b,c:longint;
begin
clrscr;
write('Введите целое положительное число n=');
readln(n);
b:=n;
c:=0;
while b>0 do
begin
c:=c*10+(b mod 10);
b:=b div 10;
end;
if c=n then write('Палиндром')
else write('Не палиндром');
readln
end.

Я знаю только как определить является число палиндромом или нет. А вот как сделать, чтобы программа сама находила палиндромы не больше числа N?

  • for i:=1 to N do
    begin
    {проверяем на простоту}
    {проверяем на палиндром}
    end;

    Проверку простоты и палиндром лучше писать отдельными функциями, так понятней будет.

  • Главная твоя проблема для начала - определить, является ли число простым. Начни с того, что опиши функцию, которая это определяет.
    А чтобы сама находила - надо сделать перебор в цикле, это как раз просто.
  • Function IsPalindrom (n:integer) :boolean;
    var a,b:integer;
    begin
    a:=0;b:=n;
    while b > 0 do begin
    a:=a*10+b mod 10;
    b:=b div 10;
    end;
    IsPalindrom:=(a=n);
    end;