в uses ошибку выдает что делать не знаю

Unit MyModul;
 Interface
 Procedure ADD (Var s1,s2:string);
Function scep (s1,s2:string):string;
Implementation
      Procedure ADD (Var s1,s2:string);
       Var I:integer;
      begin
    If length(s1)>Length(s2) then 
       For I:=1 to Length(s1)- Length(s2) do
           S2:=s2+’*’
Else
      For I:=1 to Length(s2) –Length(s1) then
           S1:=s1+’*’;
End;
Begin
Var f:Boolean; Var I,K,slovo1,slovo2:string;
F:=false;
 For I:=1 to Length(s1) do begin 
    If( f=false) and( s[I]<>’ ‘) then begin
F:=true;
K:=I;
End;
  If (f= true) and (s[i+1]=’ ‘)
Or (i=length(s1)) then begin
 Slovo 1:=copy(s1,i-k+1);
End;
F:=false;
    For i:=1 to Length(s2) do begin
        If (f=false) and( s[i] <>’ ‘) then begin
 F:=true;
K:=I;
End;
If (f=true) and(s[i+1]= ‘ ‘) 
  Or (( i=length(s2)) and(s[i] <>’ ‘) then  begin
 Slovo2:copy(s2,i-k+1);
 End;
Scep:=slovo;

Program dul;
Uses Modul;
Var s1,s2,s3:string;
Begin
 Writeln (‘ vvod stroki’);
Readln(s1,s2);
S3:=scep(s1,s2);
Writelen(scep:s3);
 Writeln(‘add star’);
Writelen(ADD);