Сформировать три целочисленных одномерных массива X1, Y1, Z1 длиной m. Сформировать из них новые массивы X2, Y2, Z2

Procedure arr(m:integer);
var x1,y1,z1,x2,y2,z2 : array[1..20] of integer;
i,s,p: integer;
begin
  randomize;
 
  s := 0;
  p := 1;
  for i := 1 to m do begin
      x1[i] := random(100);
      if ( (i>1) and (i<m) ) then x2[i] := x1[i];
      if x1[i] <> 0 then begin
         s := s + x1[i];
         p := p * x1[i];
      end;
  end;
  x2[1] := s;
  x2[m] := p;
 
  s := 0;
  p := 1;
  for i := 1 to m do begin
      y1[i] := random(100);
      if ( (i>1) and (i<m) ) then y2[i] := y1[i];
      if y1[i] <> 0 then begin
         s := s + x1[i];
         p := p * x1[i];
      end;
  end;
  y2[1] := s;
  y2[m] := p;
 
  s := 0;
  p := 1;
  for i := 1 to m do begin
      z1[i] := random(100);
      if ( (i>1) and (i<m) ) then z2[i] := z1[i];
      if z1[i] <> 0 then begin
         s := s + x1[i];
         p := p * x1[i];
      end;
  end;
  z2[1] := s;
  z2[m] := p;
 
  write('x1(',m,'): ');
  for i := 1 to m do write(x1[i],' ');
  writeln;
 
  write('x2(',m,'): ');
  for i := 1 to m do write(x2[i],' ');
  writeln;
 
  write('y1(',m,'): ');
  for i := 1 to m do write(y1[i],' ');
  writeln;
 
  write('y2(',m,'): ');
  for i := 1 to m do write(y2[i],' ');
  writeln;
 
  write('z1(',m,'): ');
  for i := 1 to m do write(z1[i],' ');
  writeln;
 
  write('z2(',m,'): ');
  for i := 1 to m do write(z2[i],' ');
end;
 
VAR m: integer;
begin
  repeat
    write('0<M<21, M=');
    readln(m);
  until ( (m>0) and (m<21) );
  arr(m);
  readln;
end.