Удалить из строки ведущие ноли - Turbo Pascal

Строка содержит только цифры . удалить все впереди стоящие нули.

Листинг программы

var
str: string;
i:integer;
begin
str:='00012344';
i:=1;
while((i<=length(str)) and (str[i]='0')) do inc(i);
delete(str,1,i-1);
writeln(str);
end.

Объяснение кода листинга программы

В начале объявляются переменные str и i типа string и integer соответственно.
Значение переменной str присваивается строка '00012344'.
Переменная i инициализируется значением 1.
Запускается цикл while, который выполняется до тех пор, пока (i меньше или равно длине строки str) и (строка str[i] равна '0').
Внутри цикла значение переменной i увеличивается на 1.
Вызывается функция delete(str,1,i-1), которая удаляет из строки str все символы от первого до i-1 включительно.
Выводится на экран строка str после удаления ведущих нулей.
Цикл while завершается, так как условие (i меньше или равно длине строки str) становится ложным.
Код завершается, и на экран выводится строка str без ведущих нулей.