Сгенерировать символ по коду как случайному числу.

var
  a, b, d, d1, d2: longint;
  n, i, ts1, ts2: integer;
  flag: 0..1;
begin
 write ('Введите число: ');
 readln (a); {узнаем, сколько цифр в числе}
 b := a;
 n := 0;
 d1 := 1;
  while b<>0 do
   begin
    inc (n); {увеличение n на единицу}
    b:=b div 10;
    d1:=d1*10;
   end;
 d1:=d1 div 10;
 d2:=1;
 flag:=0;
  for i:=1 to n div 2 do
   begin
    ts1:=a div d2 mod 10;
    d2:=d2*10;
    ts2:=a div d1 mod 10;
    d1:=d1 div 10;
     if ts1<>ts2 then
      begin
       flag:=1;
       writeln('Это число не является палиндромом.');
       break;
      end;
   end;
    if flag=0 then
     begin
      writeln ('Данное число является палиндромом.');
     end;
end.

Uses
 CRT;
var
  a,k,b,l: longint;
begin
 write ('Ââåäèòå ÷èñëà: ');
 readln (a,b);
 l:=b;
 k:=0;
 repeat
  k:=k*10+(b mod 10);
  b:=b div 10;
 until b=0;
 if (k=l) and (k=a) then writeln('Äà')
 else writeln('Íåò');
 readkey
end.

k:=0;
 repeat
  k:=k*10+(b mod 10);