Определить, существует ли ровное число, состоящее ровно из l цифр

Uses Crt;
 
Function FlagSt0(S : String) : Boolean;
var k : Byte;
Begin
  FlagSt0:=True;
  For k:=1 to Length(S) do
    If S[k]<>'0' then
    Begin
      FlagSt0:=False;
      Break;
    end;
End;
 
Function FlagRovnoe(S : String) : Boolean;
Var k : Byte;
Begin
  FlagRovnoe:=True;
  For k:=2 to Length(S)-1 do
    If Ord(S[k])-48>=(Ord(S[k-1])-48+Ord(S[k+1])-48)/2 then
    Begin
      FlagRovnoe:=False;
      Break;
    End;
End;
 
Function DecSt(S : String; k : Longint) : String;
Var ii : Byte;
    ss : String;
Begin
  ss:=S;
  ii:=Length(S);
  While ii>0 do
    If ss[ii]>'0' then
    Begin
      ss[ii]:=Chr(Ord(ss[ii])-1);
      Break;
    End
      else
      Begin
        ss[ii]:='9';
        Dec(ii);
      End;
  If k>1 then DecSt:=DecSt(ss,k-1)
    else DecSt:=ss;
End;
 
 
Var
  f,f0  : text;
  St    : String;
  L,i   : Byte;
Begin
  ClrScr;
  Assign(f0,'Input.in');
  Assign(f,'Output.out');
    Reset(f0);
    Readln(f0,L);
    Close(f0);
  St:='';
  For i:=1 to L do St:=St+'9';
  While (not FlagSt0(St)) and (not FlagRovnoe(St)) do
  Begin
    St:=DecSt(St,1);
    GoToXY(10,WhereY);
    Write(St);
  End;
    ReWrite(f);
    If FlagSt0(St) then Writeln(f,'-1')
      else Writeln(f,St);
    Close(f);
end.