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

uses crt;
const n=10;
type mas=array[1..n] of real;
procedure Vvod(var m:mas;c:char);
var i:byte;
begin
writeln('Введите ',n,' элементов массива ',c);
for i:=1 to n do
 begin
  write('el[',i,']=');
  readln(m[i]);
 end;
clrscr;
end;
procedure Vyvod(var m:mas;c:string);
var i:byte;
begin
writeln('Исходный массив ',c);
for i:=1 to n do
write(m[i]:0:1,' ');
writeln;
writeln;
end;
procedure Zamena(var m:mas;c:char);
var i,i1:byte;
begin
if m[1]=0 then writeln('Первый элемент массива нулевой, замен нет!')
else
 begin
  i:=1;i1:=0;
  while(i<=n) and (i1=0) do
  if m[i]=0 then i1:=i
  else i:=i+1;
  if i1=0 then writeln('В массиве нет нулевых элементов!')
  else
   begin
    writeln('Замена элементов:');
    for i:=1 to n do
     begin
      if i in [1..i1-1] then m[i]:=0.5;
      write(m[i]:0:1,' ');
     end;
   end;
 end;
writeln;
end;
var a,b:mas;
begin
clrscr;
Vvod(a,'A');
Vvod(b,'B');
Vyvod(a,'A');
Zamena(a,'A');
Vyvod(b,'B');
Zamena(b,'B');
readln
end.