Преобразовать заданную прямоугольную матрицу Х (р,к) в матрицу строку У (п, расположив последовательно все столбцы матрицы Х

program Charushin_Maksim_VIVT_10;
uses crt;
type dvumermas=array[1..100,1..100] of integer;
type odnomermas=array[1..100] of integer;
var X:dvumermas; Y:odnomermas; i,j,p,k,n,r,c,d,e:integer;
begin randomize;
writeln('dvymernii massiv:');
write('vvtdite kolichestvo strok p = '); read(p);
write(''vvtdite kolichestvo stolbcov k = '); read(k);
for i:=1 to p do begin
for j:=1 to k do begin
X[i,j]:=random(45)-22;
write(X[i,j]:4);
end; writeln; end;
writeln('Press Enter, please');
readln;
writeln('razmer odnomernogo massiva polychaem pytem ymnozhenia kol-va stolbcov na kol-vo strok dvymernogo massiva');
n:=p*k;

program Charushin_Maksim_VIVT_10;
uses crt;
const max=20;
type dvumermas=array[1..max,1..max] of integer;
     odnomermas=array[1..max*max] of integer;
var X:dvumermas;
    Y:odnomermas;
    i,j,p,k,n:integer;
begin
randomize;
repeat
write('vvtdite kolichestvo strok do ',max,' p ='); read(p);
until p in [1..max];
repeat
write('vvtdite kolichestvo stolbcov do ',max, 'k ='); read(k);
until k in [1..max];
writeln('dvymernii massiv:');
for i:=1 to p do
 begin
  for j:=1 to k do
   begin
    X[i,j]:=random(45)-22;
    write(X[i,j]:4);
   end;
  writeln;
 end;
writeln('Press Enter, please');
readln;
writeln('odnomernyj massiv:');
n:=0;
for j:=1 to k do
for i:=1 to p do
 begin
  n:=n+1;
  Y[n]:=X[i,j];
  write(Y[n]:4);
 end;
end.