Reverse и ошибка Unkwnonw identifier

unit modulis;
 
Interface
 
 
const LensStrMod=255;
 
type StrData = string[LensStrMod];
     StrData1 = string[LensStrMod];
 
 
var
   InputString,Outputstring : string;
 
 
Implementation
  procedure Inp(InputString :StrData; var Outputstring :StrData1);
  var len,i: integer;
      switch:boolean;
      temp:char;
    begin
      Outputstring:=reverse(InputString);
      end;
       
      function reverse(s:string):string;
        var i:integer;
        var tmp:char;
        begin
            for i:=1 to length(s) div 2 do
              begin
               tmp:=s[i];
               s[i]:=s[length(s)+1-i];
               s[length(s)+1-i]:=tmp;
               reverse:=s;
              end;
        end;
end.

unit modulis;
 
Interface
 
 
const LensStrMod=255;
 
type StrData = string[LensStrMod];
     StrData1 = string[LensStrMod];
 
 
var
   InputString,Outputstring : string;
 
{ это будет вызываться извне, скорее всего }
procedure Inp(InputString :StrData; var Outputstring :StrData1);
 
Implementation
 
      function reverse(s:string):string;
        var i:integer;
        var tmp:char;
        begin
            for i:=1 to length(s) div 2 do
              begin
               tmp:=s[i];
               s[i]:=s[length(s)+1-i];
               s[length(s)+1-i]:=tmp;
               reverse:=s;
              end;
        end;
 
  procedure Inp(InputString :StrData; var Outputstring :StrData1);
  var len,i: integer;
      switch:boolean;
      temp:char;
    begin
      Outputstring:=reverse(InputString);
      end;
end.