PascalABC. Строки. Написать процедуру, которая удаляет следующий элемент после элемента равному нулю

program zz1;

var s, s1: string; // задаем переменные строкового типа procedure pr(f:string; var f1:string); // описываем процедуруvar i:integer;begin for i := length(f) downto 1 do // организуем цикл, в котором переберем все символы от последнего до первого if f[i] = \'0\' then delete(f, i + 1, 1); // проверяем, если элемент равен нулю, то удаляем элемент, который стоит за ним f1:=f;end;begin write(\' введите последовательность элементов \'); read(s); // вводим с клавиатуры последовательность элементов pr(s,s1); write(\'полученная последовательность элементов = \', s1);end.