Двумерный массив(матрица)

const N=3; M=4;
var Mas:array[1..N,1..M] of integer;
    i,j,max,num,k:integer;
begin
  for i:=1 to N do
   for j:=1 to M do
    begin
     write('Vvedite ',i,j,' element: ');
     readln(Mas[i,j]);
    end;
 
 
    for i:=1 to N do
     begin
      max:=Mas[i,1];
      num:=1;
       for j:=1 to M do
        if max<Mas[i,j] then
         begin
           num:=j;
           max:=Mas[i,j];
         end;
 
       for k:=num+1 to M do
        Mas[i,k]:=0;
      end;
 
 
      for i:=1 to N do
        begin
         write('|');
          for j:=1 to M do
            write(Mas[i,j],' ');
         writeln('|');
         end;
 
 
readln;
end.

program sort;
uses crt;
var m:array[1..5,1..4]of integer; {пусть дан массив размером (5;4)}
i,j,num,max:integer;
 
begin
 clrscr;
 randomize;
 for i:=1 to 5 do
 for j:=1 to 4 do
 m[i,j]:=random(16)+10; {заполняем элементы случайными числами от 10 до 25}
 
 
 writeln('Massiv do:');  {вывод исходного массива}
 for i:=1 to 5 do
 begin
  writeln;
  for j:=1 to 4 do write(m[i,j]:2,' ');
 end;
 
 writeln;
 for i:=1 to 5 do {перебираем строки}
 begin
  max:=m[i,1]; {пусть макс. элемент есть первый элемент строки}
  num:=1;       {соотв. его номер}
  for j:=1 to 4 do      {находим макс. элемент и его номер(индекс)}
  if m[i,j]>=max then
  begin
   max:=m[i,j];
   num:=j;
  end;
  for j:=num+1 to 4 do m[i,j]:=0; {все элементы строки что далее макс. заменяем 0}
 end;
 
 writeln('Massiv posle:'); {вывод готового массива}
 for i:=1 to 5 do
 begin
  writeln;
  for j:=1 to 4 do write(m[i,j]:2,' ');
 end;
 readln;
end.