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

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

[Credo]

ааа у меня много ошибок не получается совсем программа

program pr;
 const n=10; p=10;
  var
  A:array[1..n] of real;
  B:array[1..p] of real;
procedure d(a:array of real);
 var i:integer;
 begin
 for i:=1 to n do
  if a[i]<>0 then
  a[i]:=0.5
  else
  break;
  writeln(a[i]:5);
  end;

procedure k(a:array of real);
 var i:integer;
 begin
  for i:=1 to p do
  begin
    if a[i]<>0 then
    begin
    a[i]:=0.5;
    writeln(a[i]:5);
end;
end;
end.