[Страдалецъ]

Код:

Const
  N = 10; M = 10;
Var
  Arr: Array[1..N,1..M] of Integer;
  i, j, x: Integer;
begin
for i := 1 to N
do begin
   for j := 1 to M
   do begin
      Arr[i,j] := -20 + Random(41);
      Write(Arr[i,j]:4);
      end;
   WriteLn;
   end;
WriteLn;

for i := 1 to N
do begin
   x := Arr[i,1];
   Arr[i,1] := Arr[i,M];
   Arr[i,M] := x;
   end;

for i := 1 to N
do begin
   for j := 1 to M
   do Write(Arr[i,j]:4);
   WriteLn;
   end;
ReadLn;
end.