Найти наибольшие элементы каждого столбца

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