usaco 第一题错误

文件打开出错
你是不是（ride.in）中的（.）打错了啊?
{
ID:你自己的ID
PROB:ride
LANG:PASCAL
}注意啊，这是大括号！不是小括号，我第一次提交就差这儿了！！
program ride;
var
a,b:string[6];
i,n,m:longint;
input,output:text;
begin
assign(input,'ride.in');（ride.in 不能用空格啊!!）
reset(input);
assign(output,'ride.out');
rewrite(output);
readln(input,a);
readln(input,b);
m:=1;n:=1;
for i:=1 to length(a) do
m:=m*(ord(a[i])-64);
for i:=1 to length(b) do
n:=n*(ord(b[i])-64);
if (m mod 47)=(n mod 47) then writeln(output,'GO')
else writeln(output,'STAY');(这里必须用writeln,不能用write！)
close(input);
close(output);
end.
这是我的代码，你看看吧

文件开错了，把你源程序补充一下，我看看你怎么错的