задача на паскаль

[Hacker19_90]

repeat 
    isFound = false;
    for i := 1 to count - 1 do
        if (mas[i] = 0) and (mas[i+1] = 0) then
        begin
            isFound := true;
            for j := i to count - 1 do
                mas[j] := mas[j+1];
            break;
        end;
    if isFound then Dec(count);
until isFound = false;

вот так уберёт последовательность нулей путём сдвига и уменьшения количества элементов
PS: не проверял

[Афанасий[vedma]]

Это идет после объявления массива?