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.