Выбрать в каждой строке матрицы из символов символ с наименьшим кодом и поставить его первым в строке матрицы.

for Row := 1 to Rows do
  for Col := 2 to Cols do
    if A[Row, Col] < A[Row, 1] then
      A[Row, 1] := A[Row, Col];

const
  m=5; n=40;
var
  a: array [1..m,1..n] of Char;
  i, j, k: Integer;
  t: Char;
begin
  Randomize;
  for i:=1 to m do for j:=1 to n do
    a[i,j]:=Chr(Ord('a')+Random(Ord('z')-Ord('a')+1));
  WriteLn('A='); for i:=1 to m do WriteLn(a[i]);
  for i:=1 to m do begin
    k:=1; for j:=2 to n do if a[i,k]>a[i,j] then k:=j;
    t:=a[i,k]; for j:=k downto 2 do a[i,k]:=a[i,k-1];
    a[i,1]:=t;
  end;
  WriteLn('A''='); for i:=1 to m do WriteLn(a[i]);
end.

for i:=1 to m do WriteLn(a[i]);

for i:=1 to m do begin for j := 1 to n do Write(a[i,j]); writeln; end;

const
  m=5; n=40;
var
  a: array [1..m,1..n] of Char;
  i, j, k: Integer;
  t: Char;
begin
  Randomize;
  for i:=1 to m do for j:=1 to n do
    a[i,j]:=Chr(Ord('a')+Random(Ord('z')-Ord('a')+1));
  WriteLn('A=');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]); WriteLn; end;
  for i:=1 to m do begin
    k:=1; for j:=2 to n do if a[i,k]>a[i,j] then k:=j;
    t:=a[i,k]; for j:=k downto 2 do a[i,j]:=a[i,j-1];
    a[i,1]:=t;
  end;
  WriteLn('A''=');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]); WriteLn; end;
end.