Необходимо привести его к такому виду:
Помогите пожалуйста.
Пример кода, в котором я уже пытался.
const N=10; const M=30;
var
z:array[1..N, 1..M] of byte;
x:array[1..N] of integer;
y:array[1..11, 1..3] of integer;
rab: array[1..N] of integer;
bar: array[1..N] of integer;
i, j, sum, k1:integer;
begin
for i:=1 to N do
begin
for j:=1 to M do
begin
z[i,j]:=random(2);
end;
end;
writeln('Табель отработанных дней');
for i:=1 to N do
begin
write(i,': ');
for j:=1 to M do
begin
write( z[i,j], ' ');
end;
writeln();
end;
sum:=0;
for i:=1 to N do
begin
for j:=1 to M do
begin
sum := sum + z[i, j];
end;
writeln(i,'-ый Работник: ', sum);
x[i]:=sum;
if(sum>=30) then
begin
writeln('Работник ', i,' не пропускал рабочие дни');
end;
sum:=0;
end;
writeln();
for i:=1 to 10 do
begin
for j:=1 to 2 do
begin
y[i][1]:=i;
y[i][j+1]:=x[i];
write(y[i,j]:3);
end;
writeln();
end;
writeln();
for i:=1 to 10 do
begin
for j:=1 to 2 do
begin
if y[i, j+1]>y[i+1, j+1] then
begin
k1:=y[i, j+1];
y[i, j+1]:=y[i+1, j+1];
y[i+1, j+1]:=k1;
end;
end;
end;
for i:=1 to 10 do
begin
for j:=1 to 2 do
begin
write(y[i,j]:3);
end;
writeln();
end;
end.