Двумерный массив

[Veroni4ka]

Ввести двумерный массив чисел, содержащий N-строк и M-столбцов. Значения M и N задать самим и лучше взять небольшие, например, 4 строки и 6 столбцов. Сформировать одномерный массив, состоящий из максимальных чисел каждой строки. Исходный массив вывести на экран, при этом двумерный массив выводить в форме матрицы.
Данные вводить самому!
Помогите кто может!

[Levsha100]

]1) Язык/среда разработки???
2) Наработки есть? Хоть что-то???

const
  m=5;
  n=5;
var
  i,j:integer;
  A:Array[m,n]of integer;
begin
  for j:=1 to n do  // Eto Vvod masiva
    for i:=1 to m do
    begin
      WriteLn("Vvedite element s indexsami x: ",i," y: ",j);
      ReadLn(A[i,j]);
    end;
end;

[Veroni4ka]

pascal
есть но надо чтобы данные самому вводить

program sort;
uses crt;
const mm=4;
         nn=6;
var m:array[1..mm,1..nn]of integer;
    i,j:integer;
 
function MaxVStr(k:integer):integer;
var i,max:integer;
begin
 max:=m[k,1];
 for i:=1 to nn do if m[k,i]>=max then max:=m[k,i];
 MaxVStr:=max;
end;
 
begin
 clrscr;
 randomize;
 for i:=1 to mm do
 for j:=1 to nn do
 begin
 m[i,j]:=random(41);
 end;
 
 writeln('Massiv:');
 for i:=1 to mm do
 begin
  writeln;
  for j:=1 to nn do write(m[i,j]:2,' ');
 end;
 
 writeln;
 for i:=1 to mm do writeln('MAX v stroke #',i,'=',MaxVStr(i));
 
 readln;
end.

[Stilet]

Ну дык ради бога. Замени строчку:

m[i,j]:=random(41);

на

Readln(m[i,j]);