{* Удаляет все нули стоящие в начале *}

Unit NOTNOL;
Interface
Implementation
Begin
 writeln('В заданной строке из чисел, удаляет все нули стоящие в начале. ');
End.

0
Program pas88705;

Uses notnol.pas; {* Эту строку можно удалить *}
0
Var {* Необходимые переменные *}
  0   st : String;
  0   i  : byte;
Begin
  0   write('Введите строку : ');
  0   readln(st);
  0   i := length(st);
  0
  While ((i > 0) And (st[1] = '0')) Do
    0
    Begin
      0     delete(st, 1, 1);
      0     i := i - 1  0
    End;
  0   writeln('Результат : ', st);
  0   readln; {* Ждем нажатия Enter *}
End.