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

[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.