Заполнить массив по схеме из элементов матрицы

program kon1;
uses
    crt;
const
    N = 5;
    M = 5;
    K = 1;
    T = 5;
    u = 25;
type
    matr = array [1..N,1..M] of integer;
    mas = array [1..25] of integer;
var
    m1 : matr;
    b,d : mas;
    j,c : integer;
procedure InsMas1(var m1 : matr; n,m: integer);
var
    i, j : integer;
begin
    randomize;
    for i := 1 to n do
      for j := 1 to m do
        m1[i,j]:= random(10);
end;
procedure PrintMas(var m1 : matr; n,m : integer);
var
    i, j : integer;
begin
    for i := 1 to n do
      begin
        for j := 1 to m do
          write(m1[i,j]:5);
        writeln;
      end;
end;
procedure zap(var b,d : mas; k,t,c,j : integer; m1 : matr);
var i,r : integer;
begin
     for i := 1 to c do
       d[i] := m1[i,j]
end;
procedure zap1(var b,d : mas; k,t,c,j : integer; m1 : matr);
var i : integer;
begin
     for i := c downto 1 do
         d[i] := m1[i,j];
end;
procedure zap2 (b,d : mas; k,t,c,j : integer);
var i : integer;
begin
for i := 1 to 5 do
     for j to c do
         b[j] := d[i];
end;
procedure print(b : mas);
var i : integer;
begin
     for i := 1 to 25 do
         write(b[i]:3);
end;
begin
    clrscr;
    insmas1(m1,n,m);
    WriteLn('îáßß¿ó ß«ºñá¡...');
    Write('ì᪼¿ΓÑ Enter ñ½∩ »α«ñ«½ªÑ¡¿∩');
    ReadLn;
    printmas(m1,n,m);
    Write('ì᪼¿ΓÑ Enter ñ½∩ »α«ñ«½ªÑ¡¿∩');
    ReadLn;
    j := 1; c := 5;
    zap(b,k,t,c,j,m1);
    zap2(b,d,k,t,c,j);
    print(b);
    Readln;
 
end.

program pr1;
uses crt;
var
i,j,l:integer;
a:array[1..5,1..5] of integer;
b:array[1..25] of integer;
begin
for i:=1 to 5 do begin
   for j:= 1 to 5 do begin
      a[i,j]:= random(100);
   end;
end;
for i:=1 to 5 do begin
   for j:= 1 to 5 do
      write(a[i,j]:3);
      writeln;
   end;
writeln;
for j:=1 to 5 do begin
   if j mod 2 = 0 then begin
      for i:=5 downto 1 do begin
        b[(j-1)*5+(6-i)]:=a[i,j];
      end;
   end
   else begin
      for i:=1 to 5 do begin
        b[(j-1)*5+i]:=a[i,j];
      end;
   end;
end;
for l:=1 to 25 do
   write(b[l]:3);
readln;
end.

uses crt;
var a:array[1..5,1..5] of integer;
        i,j,k:integer;
        s:char;
begin
clrscr;
 
writeln('Sluchayno y/n');
 s:=readkey;
    if (s='y') or (s='Y') then
       begin
        {Если нужно случайное заполнение массива--------}
        randomize;
        for i:=1 to 5 do
                for j:=1 to 5 do
                        a[i,j]:=random(50);
       end
         else
        {----------------------------------------------}
 
        {Если нужен ввод с клавиатуры------------------}
        for i:=1 to 5 do
                for j:=1 to 5 do
                        begin
                                write('a[',i,',',j,']= ');
                                readln(a[i,j]);
                        end;
        {---------------------------------------------}
for i:=1 to 5 do
        begin
                for j:=1 to 5 do
                        write(a[i,j]:3);
                writeln;
        end;
 
writeln;
 
i:=0;
k:=-1;
j:=0;
repeat
i:=i+1;
if k=1 then begin k:=-1; j:=6; end
 else begin k:=1; j:=0;  end;
 
 repeat
  j:=j+k;
  write(a[j,i],' ');
 
 until((j>=5)and(k=1))or((j<=1)and(k=-1));
         writeln;
 
until(j>=5)and(i>=5);
 
readln;
end.