Ошибка синтаксиса, ожидается ";" но "." найдено

 Program project10;
Uses Unit10;
Var s1,s2,s3:string;
Begin
Writeln (' vvod stroki');
Readln(s1,s2);
S3:=scep(s1,s2);
Writelen(scep:s3);
Writeln('add star');
Writelen(ADD);
Writelen
end.

unit Unit10; 
 
Interface
Procedure ADD (Var s1,s2,s:string);
Function scep (s1,s2,s:string):string;
Implementation
      Function scep (s1,s2,s:string):string;
      Procedure AD (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)   do
           S1:=s1+'*';
      End;
  Var I,K:integer;
  Var slovo1,slovo2,slovo:string;
 Var f:Boolean;
Begin
F:=false;
 For I:=1 to Length(s1) do begin
    If( f=false) and( s[I]<>' ') then
        F:=true;
        K:=I;
    End;
    If (f= true) and (s[i+1]=' ')
       Or (i=length(s1)) then begin
       Slovo1:=copy(s1,i-k+1,i);
    End;
    F:=false;
    For i:=1 to Length(s2) do begin
        If (f=false) and( s[i] <>' ') then begin
           F:=true;
           K:=I;
        End;
    end;
    If (f=true) and(s[i+1]= ' ')or ( i=length(s2))  and (s[i] <>' ') then   begin
       Slovo2:=copy(s2,i-k+1,i);
    End;
    Scep:=slovo;
 
end.

unit Unit10;
 
interface
 
procedure ADD(var s1, s2, s: string);
function scep(s1, s2, s: string): string;
 
implementation
 
function scep(s1, s2, s: string): string;
 
  procedure AD(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) do
        S1 := s1 + '*';
  end;
 
var
  I, K: integer;
 
var
  slovo1, slovo2, slovo: string;
 
var
  f: boolean;
begin
  F := False;
  for I := 1 to Length(s1) do
  begin
    if (f = False) and (s[I] <> ' ') then
      F := True;
    K := I;
  end;
  if (f = True) and (s[i + 1] = ' ') or (i = length(s1)) then
  begin
    Slovo1 := copy(s1, i - k + 1, i);
  end;
  F := False;
  for i := 1 to Length(s2) do
  begin
    if (f = False) and (s[i] <> ' ') then
    begin
      F := True;
      K := I;
    end;
  end;
  if (f = True) and (s[i + 1] = ' ') or (i = length(s2)) and (s[i] <> ' ') then
  begin
    Slovo2 := copy(s2, i - k + 1, i);
  end;
  Scep := slovo;
 
end.