Необходимо отсортировать элементы каждой строки матрицы по возрастанию, Матрицы Опции

[and rew]

Помогите пожалуйса выполнить задание:
Дана матрица целых чисел 4*3.
Отсортировать элементы каждой строки по возрастанию

var
a:array[1..4,1..3] of integer;
i,j,x:integer;
begin
writeln('Введите матрицу 4*3');
for i:=1 to 4 do
begin
writeln;
for j:=1 to 3 do
read(a[i,j]);
end;
//Вывод сформированного массива до обработки
writeln('Матрица до обработки: ');
for i:=1 to 4 do
begin
writeln;
for j:=1 to 3 do
write(a[i,j]:4);
end;
writeln;
//Сортировка матрицы
end.