* string -> shortstring

rtl/wasi/system.pp

@@ -348,7 +348,7 @@ Begin
   paramcount := argc - 1;
 End;
 
-function paramstr(l: longint) : string;
+function paramstr(l: longint) : shortstring;
 begin
   if argv=nil then
     setup_arguments;