procedure TForm1.Button1Click(Sender: TObject);
var m,n,k,i,j,p,x:integer;
    a:array[1..50,1..50]of integer;
begin
m:=strtoint(edit1.text);
n:=strtoint(edit2.text);
k:=strtoint(edit3.text);
if (k<1)or(k>m)then
  begin
     ShowMessage('Недопустимое значение k');
     exit;
  end;
randomize;
for i:=1 to m do
   begin
     for j:=1 to n do
        begin
          a[i,j]:=random(10);
          memo1.Text:=memo1.Text+inttostr(a[i,j])+'  ';
       end;
     memo1.Text:=memo1.Text+#13+#10;
   end;
//Сортировка по возрастанию в строке k
for j:=1 to n-1 do
for p:=1 to n-1 do
if a[k,p]>a[k,p+1] then
     begin
       for i:=1 to m do
          begin
            x:=a[i,p];a[i,p]:=a[i,p+1];a[i,p+1]:=x;
          end;
     end;
//Вывод обработанной матрицы
for i:=1 to m do
   begin
     for j:=1 to n do
        begin
          memo2.Text:=memo2.Text+inttostr(a[i,j])+'  ';
       end;
     memo2.Text:=memo2.Text+#13+#10;
   end;
end;
 
end.