Расположить элементы каждой строки матрицы в порядке убывания — Pascal(Паскаль)

uses crt;
type mas=array[1..100,1..100] of integer;
var mt:mas;  c,v,n,p:integer;
procedure izm(var w:mas); var t:integer;
 begin
  repeat t:=0;
   for v:=1 to n do
     begin
       for c:=1 to p-1 do if w[v,c]<w[v,c+1] then
                            begin
                             t:=w[v,c]; w[v,c]:=w[v,c+1]; w[v,c+1]:=t; t:=1;
                            end;
     end;
  until t=0;
 end;
 procedure vivod(var s:mas);
  begin
    for v:=1 to n do
       begin
        for c:=1 to p do write(s[v,c]:4); writeln;
       end;
  end;
 procedure sozd(var df:mas);
  begin
   writeln('4islo strok= '); readln(n);
   writeln('4islo stolbcov= '); readln(p);
    for c:=1 to n do begin
     for v:=1 to p do begin df[c,v]:=random(200)-100; end;
     writeln; end;
  end;
 begin
      sozd(mt);
      clrscr;
      writeln('ishodnaya matrica:');
      writeln;
      vivod(mt);
     writeln;
     writeln('rezultat:');
     writeln;
     izm(mt);
  vivod(mt);
end.