[Rise]

Кому не трудно, помогите пожалуйста решить несколько задачек на Паскале.
1) В заданном целочисленном массиве найти среднее арифметическое в каждой строке и сформировать из них одномерный массив.
2) В квадратной матрице поменять местами последнюю строку и строку с наибольшей суммой элементов.
3) В двумерном массиве отсортировать по возрастанию строку, в которой количество отрицательных элементов наименьшее.

*Все массивы вводятся генератором случайных чисел (random).

Формирование квадратной матрицы с помощью генератора случайных чисел и вывод её на экран:

Program Ex2;
uses crt;
var
   s,d,i,j,n,kol,f:integer;
   a,b:array[1..100,1..100] of integer;
begin
clrscr;
   randomize;
   write ('Введите количество строк - ');
   readln (n);
   for i:=1 to n do
   for j:=1 to n do
        a[i,j]:=random (100)-50;
        begin
        for i:=1 to n do
         begin
          for j:=1 to n do
           write (a[i,j]:4);
           writeln;
         end;
        end;