В Чем моя ошибка? Процедуры и функций Опции

[Credo]

Даны два массива А(10),В(10). В Массивах А(10) и В(10) все элементы предшествующие первому нулевому элементу заменить на 0,5.

program pr;
 const n=10; p=20;
  var
  A:array[1..n] of integer;
  B:array[1..p] of integer;

procedure a(a:array of integer);
 var i:integer;
 for i:=1 to 10 do
  begin
   if a[i]:=0
    then break
     else a[i]:=0,5;
    end;
procedure b(a:array of integer);
 var i:integer;
 begin
  for i:=1 to 20 do
   begin
    if a[i]:=0
     then break
      else a[i]:=0,5;
     end;

end.

[volvo]

Исправил все что мог

Все, что мог и ВСЕ, О ЧЕМ ТЕБЕ СКАЗАЛИ - это разные вещи. Я тебя предупреждал, что массивы индексируются с НУЛЯ? Так какого черта у тебя оба цикла - с единицы начинаются?

Зачем тебе ВООБЩЕ две процедуры? Это все прекрасно делается в одной. Для того и пишется процедура, чтоб одинаковый код не копировать. У тебя смысл процедур в чем? Скопировал один и тот же код, изменил по одной букве? Как была ошибка, так и осталась, теперь править ее надо тоже В ДВУХ местах. Что ты выиграл? В чем смысл описания открытого массива?

Плюс ко всему, твоя реализация даже теоретически не делает того, что требуется в задании:

В Массивах А(10) и В(10) все элементы предшествующие первому нулевому элементу заменить на 0,5.

Ты ничего не заменяешь, а просто при выводе ПОДменяешь. А если после того, как процедура отработала, еще раз распечатать массив, что будет?