Даны два натуральных числа. Проверить, является ли второе число перевертышем первого.

Program perevertish;
Var i,j,n,m,k1,k2,k:integer;
    a,b:string;
Begin
    write('Введите число N: ');readln(n);
    write('Введите число M: ');readln(m);
    Str(n,a);Str(m,b);
    k1:=Length(a);k2:=Length(b);
    i:=k1;j:=1;
    if k1=k2 then
    Begin
    While (a[i]=b[j])and(j<k1) do
    Begin
    dec(i);
    inc(j);
    End;
    if j<>k1 then writeln('Число ',n, ' не является перевертышем числа ',m)
    else writeln('Число ',n, ' является перевертышем числа ',m)
    end
    else writeln('Не совпадение кол-ва цифр');
    readln;
End.

function Reverse(a: string): string;
  var b:string;
      i:integer;
begin
   b:='';
   for i:=Length(a) downto 1
     b:=b+a[i];
     Result := b;
end;
 
Var n,m:string;
Begin
    write('Введите число N: ');
    readln(n);
    write('Введите число M: ');
    readln(m);
 
    if n<>Reverse(m) then
      writeln('Число ',n, ' не является перевертышем числа ',m)
    else
      writeln('Число ',n, ' является перевертышем числа ',m)
    readln();
End.

var a,b,c,d,e:integer;
begin
readln(a,b);
while a>0 do
begin
d:=b mod 10;
e:=e*10+d;
a:=a div 10;
end;
if b=e then writeln('yes') else writeln('no');
end.

function Reverse(a: string): string;
  var b:string;
      i:integer;
begin
   b:='';
   for i:=Length(a) downto 1
     b:=b+a[i];
     Reverse:= b;{когда пишешь функцию обязательно результат должен быть присвоен имени функции}
end;