Составить программу в Pascal. В которую введя хоть какое трехзначное число оно

var
s, s2: string;
n, m: longint;
i, err: integer;

begin
writeLn ( Введите целое трехзначное число: );
readln ( n );
str ( n, s );
s2 := ;
for i := length ( s ) downto 1 do
s2 := s2 + s[i];
val (s2, m, err);
writeLn ( Приобретенное число: , M, . );
readln;
end.