Даны три трёхзначных числа, заданные случайным образом. Вывести на экран 3 числа, записанные цифрами наоборот — Pascal(Паскаль)

{Даны три трёхзначных числа, заданные случайным образом.
Вывести на экран 3 числа, записанные цифрами наоборот}
 
uses crt;
var y1,y2,y3:integer;
 procedure naob(x:integer; var z:integer);
  begin
   z:=(x mod 10)*100;
   z:=z+(x div 10 mod 10)*10;
   z:=z+(x div 100);
  end;
begin
 randomize;
 y1:=random(900)+100;
 y2:=random(900)+100;
 y3:=random(900)+100;
 writeln('Исходные числа: ',y1,' ',y2,' ',y3,' ');
 naob(y1,y1);
 naob(y2,y2);
 naob(y3,y3);
 writeln('Полученные числа ',y1,' ',y2,' ',y3,' ');
end.