Задача по паскалю напишите код

[nagabara]

Составить программу удаления из десятичной записи N единиц, сохранив порядок следования оставшихся цифр. Сформировать и напечатать полученное число

[GetMax]

Примерно так

Var
  ch,ch1,i:LongInt;
  Kol,count,ost:Byte;
begin
  Write('Chislo ');
  Readln(ch);
  Write('Kol edinic ');
  Readln(Kol);
  count:=1;
  i:=1;
  ch1:=0;
  While ch > 0 do
  Begin
    ost:=ch mod 10;
    if ost <> 1  then
    Begin
      ch1:=ch1+ost*i;
      i:=i*10;
    End
    Else
    If (ost = 1) and (count > Kol) then
    Begin
      ch1:=ch1+ost*i;
      i:=i*10
    End
    Else
    If (ost = 1) and (count <= Kol) then inc(count);
    ch:=ch div 10
  End;
   writeln(ch1);
  Readln
End.