Помогите решить две задачки пожалуйста (одномерные и двумерные массивы) Опции

[ZVER]

1. Создать одномерный массив A[1..N]. Все его элементы,
   не равные нулю, переписать, сохраняя их порядок, в начало массива, а нулевые значения- в конец массива. Новый массив не заводить.
2. В матрице A[1..N,1..M] вычислить сумму элементов, находящихся правее столбца с максимальным элементом матрицы, и среднее арифметическое элементов, расположенных ниже строки с максимальным элементом матрицы.

1-ю задачку легче решить через цикл While. Во всех задачках массивы задаются randomize. Помогите пожалуйста! Спасибо большое!

[Unconnected]

К задаче 2,только нет исключения для одинаковых наибольших элементов матрицы.

Код

Program matr;
uses crt;
const N=5;M=5;
var mas:array[1..N,1..M] of integer;
    a,b,c,d,e,x,z:integer;
    y:real;
begin
  randomize;
  clrscr;
  for a:=1 to n do
  for b:=1 to m do
  begin
    mas[a,b]:=random(20);
  end;
  for a:=1 to n do
  begin
    for b:=1 to m do
    begin
      write(mas[a,b],' ');
    end;
    writeln;
  end;
  c:=mas[1,1];
  for a:=1 to n do
  for b:=1 to m do
  begin
    if c<mas[a,b] then c:=mas[a,b];
  end;
  for a:=1 to n do
  for b:=1 to m do
  begin
    if c=mas[a,b] then begin
                         d:=b;
                         e:=a;
                       end;
  end;
  for a:=1 to n do
  for b:=d+1 to m do
  begin
    x:=x+mas[a,b];
  end;
  for a:=e+1 to n do
  z:=0;
  for b:=1 to m do
  begin
    y:=y+mas[a,b];
    z:=z+1;
  end;
  y:=y/z;
  writeln('Сумма-',x);
  writeln('Среднее арифметическое-',y:3:3);
  readln;
end.