Помогите пожалуйста!
Кв. матрица:
Одномерный массив из положительных элементов матрицы
Удалить max
Переставить 2-ой и последний

const n=4;var a:array[1..n,1..n] of integer;b:array[1..n*n] of integer;i,j,k,max,imax,c:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to n do  begin   a[i,j]:=random(51)-25;   write(a[i,j]:4);  end;  writeln; end;writeln('Полученный массив:');k:=0;for i:=1 to n do for j:=1 to n do  if a[i,j]>0 then   begin k:=k+1; b[k]:=a[i,j]; write(b[k]:4); end;writeln;  max:=b[1]; imax:=1;for i:=1 to k do  if b[i]>max then begin max:=b[i]; imax:=i; end;writeln('max = b[',imax,'] = ',max);for i:=imax to k-1 do b[i]:=b[i+1];b[k]:=0;writeln('Измененный массив:');for i:=1 to k-1 do write(b[i]:4);writeln;c:=b[2]; b[2]:=b[k-1]; b[k-1]:=c;writeln('Измененный массив:');for i:=1 to k-1 do write(b[i]:4);writeln;end.Пример:Исходный массив:  -8  -1   3   5  22  25 -23 -17  13   3  18  -1   1 -19  13   0Полученный массив:   3   5  22  25  13   3  18   1  13max = b[4] = 25Измененный массив:   3   5  22  13   3  18   1  13Измененный массив:   3  13  22  13   3  18   1   5