我想使用递归函数反转字符串,这是我的代码:
Program InvertTheString;
var n:integer;word:string;
Function Invert (N:integer; word:string) : string;
begin
if N=1 then
Invert:=word[N]+Invert
Else
Invert:=Invert(N-1,word);
end;
BEGIN
readln(word);
n:=length(word);
writeln (Invert(N,word));
writeln;write('Press Enter To Exit...');
readln;
END.
但它不工作,穿在哪里?