В записи натурального числа N поменять местами крайние цифры

uses ctr, math, sysutils;
var
        b,c : integer;
        s : string;
begin 
        write<'Введите число->'>;
        readln<b>;
        s := inttostr<b mod 10> + inttostr<b div 10 mod 10> + inttostr <b div 100>;
        writeln<’Вот оно->’, s>;
        readln<>;
end.

var
        b,c : integer;
        s : string;
begin 
        write('Введите число-> ');
        readln(b);
        s := inttostr(b mod 10) + inttostr(b div 10 mod 10) + inttostr (b div 100);
        writeln('Вот оно-> ', s);
        readln
end.

{я бы сделал так:}
var
  c : char;
  i : integer;
  s : string;
  f : boolean;
begin  
  {ввод с проверкой на то, что ввели натуральное число...}
  repeat
    f := true;
    write('введите натуральное число: ');
    readln(s);
    for i := 1 to length(s) do
      if not (s[i] in ['0'..'9']) then
      begin
        f := false;
        writeln('вы ввели не натуральное число! повторите ввод...');
        break
      end
  until f;
  {обработка}
  c := s[1];
  s[1] := s[length(s)];
  s[length(s)] := c;
  {вывод}
  writeln('число после замены: ', s)
end.

repeat
  write('Введите число-> ');
  readln(b);
until (b >= 100) and (b <= 999);

var
        b,c : integer;
        s : string;
begin 
        repeat
          write('Введите число-> ');
          readln(b)
        until (b >= 100) and (b <= 999);
        s := inttostr(b mod 10) + inttostr(b div 10 mod 10) + inttostr (b div 100);
        writeln('Вот оно-> ', s);
        readln
end.