Составить программу, выводящую простые числа - Turbo Pascal

const
  MaxN = 10000;
  
type
  tList = ^rList;
  rList = record
    N : Word;
    X : tList;
  end;
  
var
  First, Last, tmp : tList;
  N, R, count : Word;
  isPrime : Boolean;
 
begin
  New(First); First^.N := 2; First^.X := nil;
  Last := First;
  for N := 3 to MaxN do
    begin
      isPrime := True;
      tmp := First;
      repeat
        isPrime := not(N mod tmp^.N = 0);
        tmp := tmp^.X;
      until (tmp = nil) or not isPrime;
      if isPrime then
        begin
          New(tmp); tmp^.N := N; tmp^.X := nil;
          Last^.X := tmp; Last := tmp;
        end;
    end;
  
  count := 0;
  tmp := First;
  repeat
    N := tmp^.N;
    if N > 9 then
      begin
        R := 0;
        while N > 0 do
          begin
            R := R * 10 + N mod 10; N := N div 10;
          end;
        if tmp^.N = R then
          begin
            inc(count);
            if count = 1 then
              WriteLn('Среди палиндромов простые числа:');
            Write(#32, R);
          end;
      end;
    tmp := tmp^.X;
  until tmp = nil;
  
  if count = 0 then
    Write('Среди палиндромов простых чисел нет.');
  WriteLn;
end.