Составить программу для формирования вектора Х(х1,х2,…,хn),где х1 совпадает с первой ненулевой компонентой вектора Y(у1,у2,…,уm)при просмотре его компонент слева направо ,х2-со следующей ненулевой компонентой и т.д. — Pascal(Паскаль)

const
  n_max = 20;

var
  i, kol, n: integer;
  x: array [1 .. n_max] of integer;
  y: array [1 .. n_max] of integer;

begin
  writeln('Wwedite k-vo elementov 1-20');
  readln(n);
  writeln('Masiv Y');
  for i := 1 to n do
  begin
    y[i] := random(10);
    write(y[i]:3);
  end;
  writeln;
  writeln('Masiv X');
  kol := 0;
  for i := 1 to n do
    if y[i] > 0 then
    begin
      kol := kol + 1;
      x[kol] := y[i];
      write(x[kol]:3);
    end;
  readln;

end.