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

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var (m,n): =readinteger2('количество строк и столбцов в массиве: ');   writeln('*** исходный массив ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*n*'-');   for var i: =0 to m-1 do       a.setrow(i,a.row(i).orderby(t-> abs(t mod );   writeln('*** полученный массив ***'); a.println(4) end. пример количество строк и столбцов в массиве: 5 8 *** исходный массив ***   -53 -41 -74  23  90  -4  48 -78   -68  82  45  82 -54 -53 -63  80   66  40 -72 -15  79 -95  16  98   -52 -76  37  10  -9 -87 -12  30   -82 -58  43 -17  58  27 -85  96 *** полученный массив ***   90 -41 -53  23 -74  -4  48 -78   80  82  82 -53 -63 -54  45 -68   40 -72 -15 -95  66  16  98  79   10  30 -52 -12 -76  37 -87  -9   -82  43 -85  96 -17  27 -58  58 замечание. в связи с некорректно поставленным вопросом принято решение сортировать каждую строку массива независимо от прочих по возрастанию последней цифры.

Const n=5; var a: array[1..n,1..n] of integer; i,j,v,l: integer; begin for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(30); write(a[i,j]: 4) end; writeln end; writeln; for l: =n-1 downto 1 do for i: =1 to l do if a[i,n] > a[i+1,n] then for j: =1 to n do begin v: =a[i,j]; a[i,j]: =a[i+1,j]; a[i+1,j]: =v end; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 4); writeln end; readln end.

Input "a="; a input "b="; b if a > b then print "квадрат  a равен"; a ^ 2 if b > a then print "квадрат  b равен"; b ^ 2