Просьба с помощью к программистам.⁠⁠

там полнейший пиздец, для переноса строки считать элементы массива
if (j mod 5 = 0) then
writeln;
когда просто между циклами вставляется writeln; сломай руки тому, кто тебе код дал!!!

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
m = 5;
n = 5;
Var
mas: array[1..m, 1..n] of integer;
mas_mx: array[1..n] of integer;
i, j, k: byte;
min, max: integer;
begin
randomize;
max := 0;
min := 100;
k := 1;
for i := 1 to m do
begin
for j := 1 to n do
begin
mas[i,j] := random(100);
write(mas[i,j], ' ');
end;
writeln;
end;
for j := 1 to n do
begin
for i := 1 to m do
begin
if (mas[i,j] > max) then
mas_mx[j] := mas[i,j];
end;
writeln(mas_mx[j]);
end;
for k := 1 to n do
begin
if (mas_mx[k] < min) then min := mas_mx[k];
end;
writeln('Min ', min);
readln;
end.