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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]>a[i,k] then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Сортировка строк');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

uses crt;
const nmax=20;
type mtr=array[1..nmax,1..nmax] of integer;
procedure matrix(var a:mtr;var n:integer);
var i,j:integer;
begin
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(50);
end;
procedure print(a:mtr;n:integer;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end;
procedure sort(var a:mtr;n:integer);
var i,j,k,x:integer;
begin
for i:=1 to n do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]>a[i,k] then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
end;
var a:mtr;
    n:integer;
begin
clrscr;
matrix(a,n);
print(a,n,'Исходная матрица:');
sort(a,n);
print(a,n,'Сортировка строк');
readln
end.

uses crt;
const
  nmax = 20;
 
type
  mtr = array[1..nmax, 1..nmax] of integer;
 
procedure matrix(var a: mtr; var n: integer);
var
  i, j: integer;
begin
  randomize;
  repeat
    write('Размер матрицы до ', nmax, ' n=');
    readln(n);
  until n in [1..nmax];
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(50);
end;
 
procedure print(a: mtr; n: integer; s: string);
var
  i, j: integer;
begin
  writeln(s);
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3);
    writeln;
  end;
end;
 
function sort(var a: mtr; n: integer): integer;
var
  i, j, k, x: integer;
begin
  for i := 1 to n do
    for j := 1 to n - 1 do
      for k := j + 1 to n do
        if a[i, j] > a[i, k] then
        begin
          x := a[i, j];
          a[i, j] := a[i, k];
          a[i, k] := x;
        end;
end;
 
var
  a: mtr;
  k, n: integer;
 
begin
  clrscr;
  matrix(a, n);
  print(a, n, 'Исходная матрица:');
  k := sort(a, n);
  print(a, n, 'Сортировка строк');
  readln
end.