Переписать положительные элементы масива Х[i,j]m,m(1<=n<=10 1<=m<=15), в одномерный массив У та подсчитать их количество - Pascal(Паскаль)

program zad;
const
n=10;
m=15;
var
x:array[1..n,1..m] of integer;
i,j:integer;
kol:integer;
y:array[1..100] of integer;
begin
  randomize;
  kol:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      x[i,j]:=random(101)-50;
      if x[i,j]>0 then
      begin
        kol:=kol+1;
        y[kol]:=x[i,j];
      end;
      write(x[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  for i:=1 to kol do
  write(y[i]:4);
  writeln;
  writeln;
  writeln('колличество положительных элементов равно ',kol);
  readln;
end.