Упорядочить элементы матрицы

uses crt;
var
ms : array [1..10,1..10] of integer;
a,b,m,n,sum,cnt,c : integer;
begin
clrscr;
randomize;
readln(n,m);
for a:=1 to n do begin
for b:=1 to m do begin
ms[a,b]:=random(20)-10;
if ms[a,b]>0 then sum:=sum+ms[a,b];
if ms[a,b]<0 then inc(cnt);
write(ms[a,b],' ');
end;
writeln;
end;
for a:=1 to n do
for b:=a to n do
if ms[a,1]>ms[b,1] then begin
c:=ms[a,1];
ms[a,1]:=ms[b,1];
ms[b,1]:=c;
end;
writeln;
writeln('Сумма положительных элементов=',sum,' Число отрицательных=',cnt);
writeln;
writeln('Отсортированная матрица');
for a:=1 to n do begin
for b:=1 to m do write(ms[a,b],' ');
writeln;
end;
readkey;
end.

const
 n = 5;
 m = 6;
var
 a:array[1..n,1..m] of integer;
 tmp,i,j,sum,count:integer;
begin
 for i:= 1 to n do begin
   writeln;
   for j:= 1 to m do begin
     a[i,j]:= random(20);
     write(a[i,j]:3);
     if a[i,j] > 0 then
       sum:= sum + a[i,j];
     if a[i,j] < 0 then
       inc(count);
   end;
 end;
 for i:= 1 to n-1 do
 for j:= i+1 to n do
 if a[i,1] < a[j,1] then begin
   tmp:=a[i,1];
   a[i,1]:= a[j,1];
   a[j,1]:=tmp;
 end;
 writeln;
 for i:= 1 to n do begin
   writeln;
   for j:= 1 to m do
   write(a[i,j]:3);
 end;
 writeln;
 writeln('Sum ',sum);
 writeln('Otr.el ',count);
end.