program lab05task1(input, output);
const
  n = 7; { рядки }
  m = 8; { стовпці }
var
  Y: array[1..n, 1..m] of integer;
  Z: array[1..m] of integer;
  i, j, max_val: integer;
 
begin
  randomize;
 
  { Заповнення матриці }
  for i := 1 to n do
    for j := 1 to m do
      Y[i, j] := random(100) - 50;
 
  { Виведення матриці, як у консолі Lazarus }
  writeln('Matrix ', n, '*', m, ' Y=');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(Y[i, j]:4, '|');
    writeln;
  end;
 
  { Пошук максимумів у стовпцях }
  for j := 1 to m do
  begin
    max_val := Y[1, j];
    for i := 2 to n do
    begin
      if Y[i, j] > max_val then
        max_val := Y[i, j];
    end;
    Z[j] := max_val;
 
    { Вивід проміжних значень для кожного стовпця, як на скріні }
    writeln('column ', j, ': max= ', Z[j]:3);
  end;
 
  { Виведення фінального масиву Z }
  writeln('Result array Z-');
  for j := 1 to m do
    write(Z[j]:4);
  writeln;
 
  readln;
end.
 

cHJvZ3JhbSBsYWIwNXRhc2sxKGlucHV0LCBvdXRwdXQpOwpjb25zdAogIG4gPSA3OyB7INGA0Y/QtNC60LggfQogIG0gPSA4OyB7INGB0YLQvtCy0L/RhtGWIH0KdmFyCiAgWTogYXJyYXlbMS4ubiwgMS4ubV0gb2YgaW50ZWdlcjsKICBaOiBhcnJheVsxLi5tXSBvZiBpbnRlZ2VyOwogIGksIGosIG1heF92YWw6IGludGVnZXI7CgpiZWdpbgogIHJhbmRvbWl6ZTsKICAKICB7INCX0LDQv9C+0LLQvdC10L3QvdGPINC80LDRgtGA0LjRhtGWIH0KICBmb3IgaSA6PSAxIHRvIG4gZG8KICAgIGZvciBqIDo9IDEgdG8gbSBkbwogICAgICBZW2ksIGpdIDo9IHJhbmRvbSgxMDApIC0gNTA7CgogIHsg0JLQuNCy0LXQtNC10L3QvdGPINC80LDRgtGA0LjRhtGWLCDRj9C6INGDINC60L7QvdGB0L7Qu9GWIExhemFydXMgfQogIHdyaXRlbG4oJ01hdHJpeCAnLCBuLCAnKicsIG0sICcgWT0nKTsKICBmb3IgaSA6PSAxIHRvIG4gZG8KICBiZWdpbgogICAgZm9yIGogOj0gMSB0byBtIGRvCiAgICAgIHdyaXRlKFlbaSwgal06NCwgJ3wnKTsKICAgIHdyaXRlbG47CiAgZW5kOwoKICB7INCf0L7RiNGD0Log0LzQsNC60YHQuNC80YPQvNGW0LIg0YMg0YHRgtC+0LLQv9GG0Y/RhSB9CiAgZm9yIGogOj0gMSB0byBtIGRvCiAgYmVnaW4KICAgIG1heF92YWwgOj0gWVsxLCBqXTsKICAgIGZvciBpIDo9IDIgdG8gbiBkbwogICAgYmVnaW4KICAgICAgaWYgWVtpLCBqXSA+IG1heF92YWwgdGhlbgogICAgICAgIG1heF92YWwgOj0gWVtpLCBqXTsKICAgIGVuZDsKICAgIFpbal0gOj0gbWF4X3ZhbDsKICAgIAogICAgeyDQktC40LLRltC0INC/0YDQvtC80ZbQttC90LjRhSDQt9C90LDRh9C10L3RjCDQtNC70Y8g0LrQvtC20L3QvtCz0L4g0YHRgtC+0LLQv9GG0Y8sINGP0Log0L3QsCDRgdC60YDRltC90ZYgfQogICAgd3JpdGVsbignY29sdW1uICcsIGosICc6IG1heD0gJywgWltqXTozKTsKICBlbmQ7CgogIHsg0JLQuNCy0LXQtNC10L3QvdGPINGE0ZbQvdCw0LvRjNC90L7Qs9C+INC80LDRgdC40LLRgyBaIH0KICB3cml0ZWxuKCdSZXN1bHQgYXJyYXkgWi0nKTsKICBmb3IgaiA6PSAxIHRvIG0gZG8KICAgIHdyaXRlKFpbal06NCk7CiAgd3JpdGVsbjsKCiAgcmVhZGxuOwplbmQuCg==