编写一个译码程序，把一个英语句子译成数字代码。拜托了！！！

1L你第一个错了是I不是L，我还拿你的当样例呢。。。让我改了2遍！！
program wood;
var x:char;
i,j:integer;
begin
read(x);
while x<>'.' do
begin
if x=' ' then write('*')
else write(ord(x)-64);
read(x);
end;
end.

编写一个译码程序，把一个英语句子译成数字代码。译码规则是以数字1代替字母A，数字2代替字母B，……，26代替字母Z，如遇空格则打印一个星号‘*’，英文句子以‘.‘结束。

原句：l*like*apples.
数字代码：12*129115*1161612519.

program xasd;
var
s:string;
i,j,k,l,z:integer;
c:char;
begin
read(c);
while c<>'.' do
begin
if c=' ' then write('*')
else
begin
j:=ord(c)-96;
write(j);
end;
end;
end.

用什么语言啊...C++？
对不起了...不会pascalT T