Технический форум - Массив двумерный

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Массив двумерный (http://www.tehnari.ru/f43/t37436/)

Массив двумерный

составьте программу упорядочения по возрастанию элементов каждой строки двумерного массива
Хотя бы просто цикл где сортировка идет)))

Код:

uses crt;

const n=5;

      m=5;

var i,j,k,z:byte;

    tmp:integer;

    a:array[1..n,1..m]of integer;

Begin

 Clrscr;

 Randomize;

 For i:=1 to n do

 For j:=1 to m do

 a[i,j]:=random(50);



 For i:=1 to n do

 begin

 For j:=1 to m do

 write(a[i,j]:5);

 writeln;

 end;

 writeln;



 For i:=1 to n do

    begin

     z:=1;

    While z>0 do

      begin

      z:=0;

      k:=m;

      For j:=2 to k do

      If a[i,j]<a[i,j-1] then

         begin

         tmp:=a[i,j];

         a[i,j]:=a[i,j-1];

         a[i,j-1]:=tmp;

         z:=1;

         end;

      k:=k-1;

      end;

    end;



 For i:=1 to n do

 begin

 For j:=1 to m do

 write(a[i,j]:5);

 writeln;

 end;



End.