Составьте программы на эти 2 , хэлп) ​

Программа для №5

var

 a: array [1..4,1..5] of integer;

 i,j,max:integer;

begin

 randomize;

 for i:=1 to 4 do

   begin

     max:=-20;

     for j:=1 to 5 do

       begin

         a[i,j]:=random(21)-10;

         write(a[i,j]:4);

         if a[i,j]>max then

           max:=a[i,j];

       end;

     write('  Max: ',max);

     writeln;

   end;

end.