Работа с элементами массива. (Паскаль).

[tanuschka]

Дан вещественный массив из 5 строк и 3 столбцов. Упорядочить массив по возрастанию целой части элементов третьего столбца.

[puporev]

var t:real;
.........
for i:=1 to 4 do           
for p:=1 to 4 do
if frac(a[p,3])>frac(a[p+1,3]) then
   begin
     for j:=1 to 3 do
       begin
        t:=a[p,j];a[p,j]:=a[p+1,j];a[p+1,j]:=t;
       end;
   end;