Что неправильно в коде программы паскаль? , просит точку с запятой перед else в операторе if

program z8;
var
s:string;
k,p,i,d:byte;
begin
writeln('vvedite chifri razdelaya tochkami, na konce *');
readln(s);
k:=0;
while s<>'*' do
      begin
      p:=pos('.',s);
      k:=k+1;
      if k=3 then p:=length(s);
      d:=p;
      for i:=1 to p do
          if (s[1]='0') and (d-1>0) then
             begin
             Delete(S,1,1);
             d:=d-1;
             end;
      if ((d-1)>3) and ((d-1)<=0) then
         begin
         writeln('NO');
         exit;
         end else
         if (d-1)=3 then
            begin
         
            case s[1] of
                 '1','2': If S[1]='2' then
                             begin
                          for i:=2 to 3 do
                             case s[i] of
                                  '0'..'5':
                             else
                                 begin
                                 writeln('NO');
                                 exit;
                                 end; end else
                          for i:=2 to 3 do
                              case s[i] of
                                   '0'..'9':
                              else
                                  begin
                                  writeln('NO');
                                  exit;
                                  end;
                 else begin
                      writeln('NO');
                      exit;
                      end;
            end else
            for i:=1 to (d-1) do
                case s[i] of
                     '0'..'9':
                else
                    begin
                    writeln('NO');
                    exit;
                    end;
         Delete(s,1,d);
         end;
         Writeln('YES');
         end.

program z8;
var
s:string;
k,p,i,d,z:byte;
begin
writeln('vvedite chifri razdelaya tochkami, na konce *');
readln(s);
k:=0;
z:=0;
while s<>'*' do
      begin
      p:=pos('.',s);
      if (k<3) and (p=0) then
         begin
         writeln('NO');
         exit;
         end;
      if k=3 then p:=length(s);
      k:=k+1;
      d:=p;
      for i:=1 to p do
          if (s[1]='0') and (d-1>0) then
             begin
             Delete(s,1,1);
             d:=d-1;
             z:=z+1;
             writeln(d);
             end;
      if ((d-1)>3) and ((d-1)<=0)then
         begin
         writeln('NO');
         exit;
         end
         else
         if (d-1)=3 then
            begin
            if (s[1]<>'1') and (s[1]<>'2') then
              begin
              writeln('NO');
              exit;
              end
              else
                  If S[1]='2' then
                     begin
                     for i:=2 to 3 do
                         If (s[i]<>'0') and (s[i]<>'1') and (s[i]<>'2') and (s[i]<>'3') and (s[i]<>'4') and (s[i]<>'5')then
                            begin
                            writeln('NO');
                            exit;
                            end;
                     end else
                     for i:=2 to 3 do
                         If (s[i]<>'0') and (s[i]<>'1') and (s[i]<>'2') and (s[i]<>'3') and (s[i]<>'4') and (s[i]<>'5') and (s[i]<>'6') and (s[i]<>'7') and (s[i]<>'8') and (s[i]<>'9') then
                            begin
                            writeln('NO');
                            exit;
                            end;
                            end else
                            for i:=1 to (d-1) do
                                If (s[i]<>'0') and (s[i]<>'1') and (s[i]<>'2') and (s[i]<>'3') and (s[i]<>'4') and (s[i]<>'5') and (s[i]<>'6') and (s[i]<>'7') and (s[i]<>'8') and (s[i]<>'9') then
                                   begin
                                   writeln('NO');
                                   exit;
                                   end;
      if p=(length(s)+z) then Delete(s,1,d-1) else Delete(s,1,d);
      z:=0;
      end;
Writeln('YES');
end.