Даны два массива целых чисел А(n*n), X(n), где n меньше или равно 10. Требуется четные строки массива А заменить на Х и найти значение наибольшего элемента массива Х — Pascal(Паскаль)

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a: array [1 .. 10, 1 .. 10] of integer;
  x: array [1 .. 10] of integer;
  n, i, j, max: integer;

begin
  write('n=');
  readln(n);
  randomize;
  writeln('massiv:');
  for i := 1 to n do
  begin
    x[i] := random(10);
    write(x[i], ' ');
  end;
  writeln;
  writeln('matrica:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(20) - 9;
      write(a[i, j]:3);
    end;
    writeln;
  end;
  readln;
  writeln('Obrab matrica:');
  for i := 1 to n do
    if i mod 2 = 0 then
      for j := 1 to n do
        a[i, j] := x[j];
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3);
    writeln;
  end;
  readln;
  max := x[1];
  for i := 1 to n do
    if x[i] > max then
      max := x[i];
  writeln('max=', max);
  readln

end.