Получить "перевертыш" заданного трехзначного числа. помогите пожалуйста

1)

Program n1;Uses CRT;Var a,b,c,x: integer;beginClrScr;Writeln('Vvedite chislo');Readln(x);a:=x div 100;c:=x mod 10 ;b:=x div 10 mod 10;If a=0 then writeln('chislo ne trehznachnoe!') else writeln(c,b,a);readlnend.

2) ИЛИ через string

Program n1;Uses CRT;Var a: string;beginClrScr;Writeln('Vvedite chislo');Readln(a);If length(a)>3 then writeln('oshibka') elsewriteln(a[3],a[2],a[1]);readlnend.