Отсортировать массив по возрастанию последней цифры по строкам. Паскаль

А в чем смысл Вашего решения. Вот пример запуска Вашей программы, я не смог найти в результате признака сортировки

1 0 12 9 1 29 1 11 28 4 1 15 0 4 27 2 15 28 16 5 19 25 10 2 19 1 0 12 9 1 29 1 11 28 4 2 15 28 16 5 19 25 10 2 19 1 15 0 4 27

Разве что Вы строки переставили по возрастанию последней цифры в ПОСЛЕДНЕЙ колонке. Почему по последней?

А вот еще один запуск. Тут вообще неясен критерий сортировки

21 21 25 12 19 18 8 28 12 8 15 6 9 16 22 21 17 6 27 25 3 24 17 18 22 18 8 28 12 8 21 21 25 12 19 15 6 9 16 22 3 24 17 18 22 21 17 6 27 25

const n=5;var a:array[1..n,1..n] of integer;i,j,v,l:integer;beginfor i:=1 to n dobeginfor j:=1 to n dobegina[i,j]:=random(30);write(a[i,j]:4)end;writelnend;writeln;for l:=n-1 downto 1 dofor i:=1 to l doif a[i,n] > a[i+1,n] thenfor j:=1 to n dobeginv:=a[i,j];a[i,j]:=a[i+1,j];a[i+1,j]:=vend;for i:=1 to n dobeginfor j:=1 to n do write(a[i,j]:4);writelnend;readlnend.