var
 a:array [1..1000,1..1000] of integer;
 n,m,i,j,max:integer;
begin
randomize;
writeln ('Введите кол-во строк');
readln (n);
writeln ('Введите кол-во столбцов');
readln (m);
for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random (501)-200;
  writeln ('Ваша матрица');
  for i:=1 to n do
begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;
for j:=1 to m do begin
max:=a[i,j];
  for i:=1 to n do
  if a[i,j]>max then max:=a[i,j];
  writeln ('Максимальны элемент в ',j,' столбце,равен ',max);
  end;
end.