Матрица.

Program LenaStudent;
Uses CRT;
Const
  VString = 3;
  VColumn = 5;
Type
  TMSource =  Array [0..VString, 0..VColumn] of Real;
  TMVector =  Array [0..VString] of Real;
  TMMore =  Array [0..VColumn] of Real;
Var
  MSource : TMSource;
  MVector : TMVector;
  i, j : Integer;
 
procedure ReadBaseline(var MSource : TMSource);
  begin
    For i := 0 to VString do
      For j := 0 to VColumn do begin
        Write(i, ',', j, ' = ');
        Readln(MSource[i, j]);
      end;
  end;
  
procedure WriteSourceArray(var MSource : TMSource);
  begin
    For i := 0 to VString do begin
      For j := 0 to VColumn do
        Write(MSource[i, j], ' ');
      Writeln;
    end;
  end;
  
procedure PrepareVector(var MSource : TMSource; var MVector : TMVector);
  var
    max : Real;
  begin
    i := 0;
    Repeat
      max := MSource[i, 0];
      For j := 0 to VColumn do begin
        If MSource[i, j] > max then max := MSource[i, j]
      end;
      MVector[i] := max;
      Inc(i);
    Until i > VString;
    For i := 0 to VString do begin
      Write(MVector[i], ' ');
    end;
  end;
  
procedure Sort(var MVector : TMVector);
  var
    min : Real;
    n, many : Integer;
    mas : TMMore;
  begin
    i := 0;
    Repeat
      min := MVector[0];
      n := 0;
      For i := many to VString do begin
        If MVector[i] < min then begin
          min := MVector[i];
          n := i;
        end;
      end;
      For j := 0 to VColumn do begin
        mas[j] := MSource[many, j];
      end;
      For j := 0 to VColumn do begin
        MSource[many, j] := MSource[n, j];
      end;
      Inc(many);
    Until many > VString;
  end;
 
Begin
  ClrScr;
  Writeln('Ââåäèòå èñõîäíûå çíà÷åíèÿ ýëëåìåíòîâ ìàññèâà (4õ6): ');
  ReadBaseline(MSource);
  ClrScr;
  Writeln('Ìàññèâ ñîñòàâëåííûé èñõîäÿ èç èñõîäíûõ äàííûõ: ');
  WriteSourceArray(MSource);
  Writeln('Âåêòîð, ýëåìåíòû êîðîãî ÿâëÿþòüñÿ íàèáîëüøåìè çíà÷åíèÿìè ñîîòâåòñòâóþùèõ ñòðîê: ');
  PrepareVector(MSource, MVector);
  Writeln('');
  Sort(MVector);
  WriteSourceArray(MSource);
  Readln;
End.