Заменить максимальный элемент матрицы на рассчитанное по заданию значение.

max:=a[1,4];
for i:=2 to n do
if a[i,4]>max then
max:=a[i,4];

max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then 
begin
max:=a[i,j];
k:=i;
l:=j;
end;
a[k,l]:=s;

program zadachalab5;
var a:array[1..5,1..5] of real;
im,n,m,i,j:integer;
s,max:real;
begin
     writeln('BBog MaTPux A[3,4]:') ;
     readln(n,m);
     for I:=1 to 3 do
      begin
      for J:=1 to 4 do
       begin
        a[i,j]:=random(40);
        write (a[i,j]:4:0);
       end;
      writeln;
      end;
 
max:=A[1,4];
for i:=2 to 3 do
if a[i,j]>max then begin
   max:=a[i,j];
   im:=i;
   end;
for j:=1 to 4 do
s:=s+(exp(1-a[2,j])+10);
a[im,4]:=s;
writeln('______________________');
writeln('max=',max:3:0);
writeln('s=',s:3:0);
writeln('______________________');
for i:=1 to 3 do             begin
for j:=1 to 4 do    begin
write(a[i,j]:4:0);   end;
writeln;
end;
end.
 
 
end.