Действия над элементами двумерного массива (Помощь в исправлении ошибки)

var
L: array [1..7,1..8] of integer;
i,j:integer;
max:integer;
begin
for i:=1 to 7 do
writeln;
for j:=1 to 8 do
begin
L[i,j]:=-50+random(200);
begin
for i:=1 to 7 do
for j:=1 to 8 do
write (L[i,j]);
end;
begin
max:=L[1,1];
{max i:=1;
maxj:= 1;}
for i:= 1 to 7 do
begin
for j:= 1 to 8 do
if L [i,j]> max then
readln;
l[i,j]:=random (200);
write (l[ i,j]:5);
for i:=1 to 7 do
begin
writeln;
for j:=1 to 8 do
writeln(L[i,j]);
end;
end;
end;
end;
end;
end;
readln;
end.

var
   L : array [1..7,1..8] of integer;
   i, j : integer;
   maxi, maxj : integer;
begin
   for i:=1 to 7 do
   begin
      for j:=1 to 8 do
      begin
         L[i,j]:=-50+random(201); { <-- Это во-первых, иначе у тебя интервал -50 .. 149 }
         write (L[i,j]:4);
      end;
      writeln;
   end;
 
   maxi := 1; maxj := 1;
   for i:= 1 to 7 do
      for j:= 1 to 8 do
      if L[i,j] > L[maxi, maxj] then
      begin
         maxi := i; maxj := j;
      end;
 
   writeln('max: L[',maxi:2,maxj:2,'] = ', L[maxi, maxj]);
   readln;
end.

var
   L : array [1..7,1..8] of integer;
   i, j : integer;
   maxi, maxj : integer;
begin
   for i:=1 to 7 do
   begin
      for j:=1 to 8 do
      begin
 
         L[i,j]:=-50+random(201); 
         write (L[i,j]:4);
      end;
      writeln;
   end;
 Randomize {???}
   maxi := 1; maxj := 1;
   for i:= 1 to 7 do
      for j:= 1 to 8 do
      if L[i,j] > L[maxi, maxj] then
      begin
         maxi := i; maxj := j;
      end;
 
   writeln('max: L[',maxi:2,maxj:2,'] = ', L[maxi, maxj]);
   readln;
end.