Программирование задач с использованием функций

{Даны два массива А(10), В(10). В массивах А(10) и В(10) все элементы
предшествующие первому нулевому элементу заменить на 0,5}
const
  n = 10;
 
type
  vector = array [1..n] of real;
 
var
  a,  b: vector;
  i, k: integer;
 
function FirstZero(x: vector): integer;
var
  i, k: integer;
begin
  k := 0;
  for i := 1 to n do
    if x[i] = 0 then
    begin
      k := i;
      break;
    end;
  FirstZero := k;
end;
 
begin
  randomize;
  writeln('   Array A Array B');
  for i := 1 to n do
  begin
    a[i] := random * n;
    b[i] := random * n;
    writeln(a[i]:8:2, b[i]:8:2);
  end;
//  b[5] := 0; //принудительный 0
  k := FirstZero(a);
  for i := 1 to k-1 do
    a[i] := 0.5;
  k := FirstZero(b);
  for i := 1 to k-1 do
    b[i] := 0.5;
  writeln('   Array A Array B');
  for i := 1 to n do
    writeln(a[i]:8:2, b[i]:8:2);
  readln;
end.