为什么40分？

我的代码：

var
s1:char;
bo:0..1;
s:string;
i,n,j,m,len,len1: integer;
begin
len1:=1;
readln(s);
len:=length(s);
if s[length(s)]='0' then dec(len);
if s[1]='-' then begin write('-'); inc(len);end;
for i:=len downto len1 do
write(s[i]);
readln;
end.
##望各位大神指教