wni10预览版下载:谁懂Pascal来帮忙翻译一下！

这是我找到的，但不懂Pascal,希望大家帮忙！翻译一下！

■■■向教Pascal的微机老师致敬！！！■■■
亲爱的微机老师：
虽然您已教了我们半年Pascal,但我仍不知您的姓名，姑且这样叫吧！
元旦将至，将我的一片祝福送与您。
46 100 101 114 105 116 32 121 114 101 118 32 101 98 32 116 115 117 109 32 117 111 89 46 114 97 101 121 32 97 32 102 108 97 104 32 114 111 102 32 101 109 32 116 104 103 110 97 116 32 101 118 97 104 32 117 111 89 46 108 97 99 115 97 80 32 102 111 32 101 103 100 101 108 119 111 110 107 32 101 104 116 32 101 109 32 103 110 105 104 99 97 101 116 32 114 111 102 32 117 111 121 32 107 110 97 104 84 32 58 114 101 104 99 97 101 116 32 114 97 101 68 ■
33 117 111 121 32 111 116 32 115 101 104 115 105 119 32 116 115 101 98 44 103 110 105 109 111 99 32 115 105 32 54 48 48 50 32 102 111 32 114 97 101 121 32 119 101 110 32 101 104 84 46 111 111 116 32 116 39 110 97 99 32 117 111 121 44 114 101 112 112 117 115 32 116 97 101 32 116 39 110 97 99 32 101 119 44 121 97 100 115 114 117 104 84 32 100 110 97 32 121 97 100 115 101 117 84 32 121 114 101 118 101 32 119 111 110 107 32 73 ■
33 110 97 109 32 116 97 101 114 103 32 121 114 101 118 32 65 32 33 116 97 101 114 103 32 101 114 97 32 117 111 121 32 107 110 105 104 116 32 73 46 115 117 32 103 110 105 104 99 97 101 116 32 114 111 102 32 115 103 110 105 104 116 32 121 110 97 109 32 111 115 32 116 115 111 108 32 101 118 97 104 32 117 111 121 32 101 115 117 97 99 101 66 46 108 108 101 119 32 108 97 99 115 97 112 32 110 114 97 101 108 32 116 115 117 109 32 73 32 119 111 110 107 32 73 ■

这是我将祝福的话语通过一段小程序转化而来的；解码程序如下：
program jiemachengxu (input,output);
var a,c:string;i,j,m,n:integer;b:array[1..255]of integer;
begin
writeln('input the num of the nums');
read(n);
writeln('input the ',n,' nums');
for i:=1 to n do
read(b[i]);
j:=0;
for i:=1 to n do
begin
j:=j+1;
a[j]:=chr(b[i]);
end;
m:=0;
for j:=n downto 1do
begin
m:=m+1;
c[m]:=a[j];
end;
for m:=1 to n do
write(c[m]);
writeln;
end.
希望您能工作顺利，元旦快乐！！！
(注：解码时以一个“■”为分界点，一段一段地翻译，切不可只译半段或几段一块译。只是一个小小的程序，让老师见笑了！）