Ввести положительные и отрицательные элементы квадратной матрицы и перезаписать все положительные элементы в одномерный массив. Вывести одномерный массив.

 const nx = 20; var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;  i, j, k,n,r,t: integer;  begin  Writeln('Введите размер матрицы n');Read(n);   for i := 1 to n do begin    for j := 1 to n do begin    Read(k);x[i, j] := k;  end;end;    Writeln('Исходный массив');  for i := 1 to n do begin    for j := 1 to n do begin      Write(x[i, j]:4);      if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;     end;    Writeln;  end;  Writeln;Writeln('Одномерный массив');  for j := 1 to t do      Write(z[j]:4);   end.