Составить программу для выполнения заданных действий над двумерным массивом

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,max:integer;
begin
clrscr;
writeln ('Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
max:=x[i];
For i:=1 to n do
 if x[i]>max then max:=x[i];
Writeln (' Maxim element = ',max);
Writeln;
For i:=1 to n do
 if i mod 2 = 0 then x[i]:=x[i]*max;
Writeln (' Umnozhenie elementov na max ');
For i:=1 to n do write (x[i]:3);
Readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,k:byte;
    s:real;
begin
clrscr;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n*m,' элементов матрицы:');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
   write(a[i,j]:6:2);
   writeln;
 end;
writeln;
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+a[i,j];
  for k:=1 to m do
  a[i,k]:=a[i,k]/s;
 end;
writeln('Измененная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
   write(a[i,j]:6:2);
   writeln;
 end;
readln
end.