const nStr = 4; nCol = 3;
type  TStr = array[1..nCol] of integer;
      TMatr = array[1..nStr] of TStr;
var matr:TMatr;

procedure FindMax(str:TStr;var max:integer);
    var i:integer;
    begin
        max:=str[1];
        for i:=2 to nCol do
            if str[i] > max then
                max:=str[i];
    end;

procedure ReplacePos (var matr:TMatr);
    var i,j,max:integer;
    begin
    for i:=1 to nStr do
  begin
    FindMax(matr[i],max);
            for j:=1 to nCol do
                if matr[i,j]>0 then
                    matr[i,j]:=max
    end;
    end;

procedure formMatr(var m: TMatr);
var i, j: integer;
begin
  writeln('введите матрицу ',nStr,'x',nCol);
  for i:=1 to nStr do
    for j:=1 to nCol do
      read(m[i,j]);
  readln;
end;

procedure printResult(m: TMatr);
var i, j: integer;
begin
  writeln('--- РЕЗУЛЬТАТ ---');
  for i:=1 to nStr do
  begin
    for j:=1 to nCol do
      write(m[i,j]:3);
      writeln;
  end
end;

begin
    formMatr(matr);
    ReplacePos(matr);
    printResult(matr);
    readln;
end.