Помогите решить последнюю задачу, на двумерный массив

program anz679a;
uses
    crt;
const
    n = 5;
type
    Tarr = array[1..n, 1..n] of real;
var
    a, b  : Tarr;
{==========================================}
procedure insertData(var x : Tarr);
var
    i, j : byte;
begin
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            x[i, j] := random(30) / PI;
        end;
    end;
end;
{==========================================}
procedure printData(x : Tarr);
var
    i, j : byte;
begin
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            write(x[i, j]:10:3);
        end;
        writeln;
    end;
end;
{==========================================}
procedure multy(var x, y : Tarr);
var
    i, j, k : byte;
    max : real;
begin
    for i := 1 to n do
    begin
        max := y[i, 1];
        for k := 1 to n do
        begin
            if(y[i, k] > max) then
            begin
                max := y[i, k];
            end;
        end;
        for j := 1 to n do
        begin
            x[i, j] := x[i, j] * max;
        end;
    end;
end;
{==========================================}
begin
    clrscr;
 
    textColor(red);
    insertData(a);
    insertData(b);
    writeln('1 matrica imeet vid: ');
    printData(a);
    textColor(green);
    writeln;
    writeln('2 matirca imeet vid: ');
    printData(b);
    textColor(blue);
    multy(a, b);
    writeln;
    writeln('1 matrica posle umnozheniya priobrela vid: ');
    printData(a);
 
    readln;
end.