Задание во вложении. Кто может , я буду очень рада.)))

<?php
echo "Исходный массив:";
$n = rand(1,13);
$S = 0;
for($i = 0; $i < $n; $i++)
{
   $A[] = rand(-10,10);
   $S+=$A[$i];
   echo " $A[$i]";
}
echo "<br>Сумма элементов = $S<br>";

$k = -1;
for($i = $n-1; $i >= 0; $i--)
   if ($A[$i] < 0) $k = $i;
if ($k == -1) echo "В массиве нет отрицательных элементов";
else echo "№ первого отрицательного: $k";
$Sr = $S/$n;
echo "<br>Sr = $Sr<br>";
$B = 0;
$C = 0;
for($i = 0; $i < $n; $i++)
{
   if ($A[$i] < $Sr) $B = $i;
   if ($A[$i] > $Sr) $C = $i;
}
echo "№ элемента, превышающего Sr: $C<br>";
echo "№ элемента, который меньше Sr: $B";
?>

program study235;

const n = 3;

         m = 6;

type mas = array [1..n, 1..m] of integer;

var a: mas;

     i, j, temp: Integer;

begin

writeln('Дан целочисленный двумерный массив, размерности n × m, при n = 3 m = 6. Поменять местами первый и последний элемент.');

writeln;

randomize;

writeln('Исходный массив:');

for i := 1 to n do

 for j := 1 to m do

 begin

 a[i, j] := random(201);

 write(a[i, j], '; ');

 if (j = 6) then writeln;

 end;

temp := a[1, 1];

a[1, 1] := a[3, 6];

a[3, 6] := temp;

writeln;

writeln('Преобразованный массив:');

for i := 1 to n do

 for j := 1 to m do

 begin

  write(a[i, j], '; ');

  if (j = 6) then writeln;

 end;

readln;

end.