Pascal/Turbo Pascal - identificar si un numero es capicua

{A ver si esto te ayuda}

 program numecapi;

 uses

    crt;

  var

    num : longint;

    i, k : integer;

    ds : string[15];

  function numero : longint;

  begin

      clrscr;

      write('   Entre Numero : ');

      {$I-} readln(num); {$I+}

      if ioresult <> 0 then

      begin

      numero := 0;

      end

    else

       begin

          numero := num;

       end;

  end;

  procedure escapicua(nn : longint);

  var

    no : boolean;

  begin

      Str(nn, ds);

      no := false;

      k := length(ds);

      for i := 1 to length(ds) do

      begin

         if ds[i] <> ds[k] then

         begin

            writeln('  El Numero No Es Capicua ');

            no := true;

            break;

         end

       else

          k := k - 1;

      end;

      if no = false then

      writeln('  El Numero Si Es Capicua ');

  end;

  begin

      escapicua(numero);

      readkey;

  end.