Сортировка простым обменом. Как выполнить ввод?

program zadacha2;
const n=3; m=4;
type index=1..n;
element=array[1..m] of real;
mas=array[index] of element;
function f(s:element):real;
var i:integer;
y:real;
begin
    y:=0;
    for i:=1 to m do
    if i mod 2<>0 then y:=y+s[i];
    f:=y;
end;
procedure sort(var a:mas);
var i,j,k:index;
x:element;
begin
    for i:=1 to n-1 do
    begin
        k:=i;
        x:=a[i];
        for j:=j+1 to n do
        if f(a[j])<f(x) then begin
            k:=j;
            x:=a[j];
        end;
        a[k]:=a[i];
        a[i]:=x;
    end;
end;
 
var a:mas;
.....
begin
{ввод матрицы а}
sort(a);
{печать матрицы а}
end.

procedure PrintMatrix(var c:mas); //вывод на печать матриц
var i,j:integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to m do write(c[i,j]:7:2);
      writeln
    end
end;
 
procedure MakeMatrix(var c:mas); //создание матрицы случайным набором чисел
var i,j:integer;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to m do c[i,j]:=random(10)-5;
end;
 
procedure EnterMatrix(var c:mas); //ручной ввод
var i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to m do
      begin
        write('a[',i,',',j,']=');readln(c[i,j]);
      end;
end;
 
var a:mas;
begin
  makematrix(a); //или entermatrix(a);
  printmatrix(a);
  writeln;
  sort(a);
  printmatrix(a);
  readln
end.