Нормирование каждого столбца матрицы по отношению к максимальному элементу этого столбца

 Program k;
 
uses
    crt;
 
var
   a:array[1..100,1..100] of real;
   s:array[1..100] of real;
   i,j,n,m:integer;
   max:real;
procedure vvod;
begin
     writeln('wvedite n');
     readln(n);
     writeln('wvedite m');
     readln(m);
      writeln('wvedite massiv ',n,'x',m);
     for i:= 1 to n do
         begin
              for j:= 1 to m do
                  read(a[i,j]);
         end;
end;
procedure delen;
begin
 
     for j:= 1 to m do
         begin
          max:=a[1,j];
              for i:=1 to n do
                  begin
 
                       if a[i,j]>max then
                          max:=a[i,j];
 
                  end;
            writeln('max element v ',j,'-stolbce raven ', max);
                   if max<>0 then begin
                         for i:= 1 to n do
                             begin
                                  s[i]:=a[i,j]/max;
                                  writeln('rezultat deleniya v ',j,'  -stolbce',i,'  elementa na max element  ',s[i]:2:4);
                             end;
                             end
                             else writeln('na nol ne delim');
            max:=a[1,1];
         end;
end;
begin
     vvod;
     delen;
     readkey
end.