pascal одномерные массивы

[Bapr]

Создать массив целых чисел M[1..N], в котором могут быть нули. Последовательность чисел до первого нуля, между нулями и от последнего нуля до последнего числа назовем серией. Отсортировать массив М по убыванию количества чисел в каждой серии.

[Bapr]

uses crt;
const n=20;
m=10;
var a:array[1..n] of integer;
b:array[1..n] of integer;
c:array[1..10,1..3] of integer;
i,y,j,k,t,col,x:integer;
begin
c[1,1]:=1;
y:=1;
j:=1;
t:=1;
clrscr;
randomize;
k:=1;
writeln('Ishodnyy massiv');
for i:=1 to n do begin
                 a[i]:=random(10)-5;
                 write(a[i]:3);
                 if a[i]=0 then begin
                     c[k,2]:=i;
                     c[k,3]:=c[k,2]-c[k,1]+1;
                           inc(k);
                    c[k,1]:=i+1;
                    end;
end;
c[k,2]:=n;
c[k,3]:=c[k,2]-c[k,1];

          for y:=1 to k do begin
          for j:=1 to 3 do begin
          write(c[y,j]:4);
          end;
          writeln;
          end;
          readkey;

          for i:=1 to m-1 do
          for j:=i+1 to 3 do
          if c[i,3]>c[j,3] then
          for t:=1 to 3 do
          begin
          x:=c[i,t];
          c[i,t]:=c[j,t];
          c[j,t]:=x;
          end;
          writeln;

                    for y:=1 to k do begin
          for j:=1 to 3 do begin
          write(c[y,j]:4);
          end;
          writeln;
          end;
          readkey;
          i:=1;
for y:=1 to k do begin
                 t:=c[y,1];
                 while t<>c[y,2] do begin b[i]:=a[t]; inc(i); inc(t); end;
                 end;
for i:=1 to n do write(b[i]:3);
readkey;
end.

[Bapr]

немного не так работает =(