СРОЧНО,ПОМОГИТЕ,ПОЖАЛУЙСТА1.Введите двузначное число. Поменяйте в нем порядок следования

program n1;

var num1,num2,i: integer;

numc: string;

begin

write('input number =gt; ');

readln(num1);

numc:=inttostr(num1);

writeln(num1);

for i:=length(numc) downto 1 do  

write(numc[i]);

end.

program n2;

var num1,num2,i,sum: integer;

numc: string;

begin

write('input number =gt; ');

readln(num1);

numc:=inttostr(num1);

for i:=length(numc) downto 1 do  

sum:=strtoint(numc[i])+sum;

writeln(sum)

end.

program n4;

var num1: integer;

numc: string;

begin

write('input number =gt; ');

readln(num1);

numc:=inttostr(num1);

if numc[2]=numc[1] then writeln('yes')

else writeln('no');

end.

program n5;

var num1,num2,i: integer;

begin

write('input number 1 =gt; ');

readln(num1);

write('input number 2 =gt; ');

readln(num2);

if num1 mod num2 = 0 then writeln('yes')

else writeln('no');

end.

program n6;

var num1: real;

numc: string;

h: integer;

begin

write('input number =gt; ');

readln(num1);

numc:=floattostr(num1);

h:=strtoint(numc[pos('.',numc)+1]);

writeln(h);

end.