program HelloWorld;
var a:array[1..10, 1..10] of integer;
    i, k, n, max, sum, imax, kmax: integer;
    c:char;

begin
    imax := 1;
    kmax := 1;
    sum := 0;

    writeln('Введите размер массива');
    while (n <> 5) do
        n:=5; //readln
    writeln('y, если хотите ввести вручную');
        c:='n'; //readln

    if (c = 'y') then
        for i:=1 to n do
            for k:=1 to n do
                a[i, k]:=n //readln
    else
        for i:=1 to n do begin
            for k:=1 to n do begin
                a[i, k] := random(200) - 100;
                write(a[i,k], ' ');
            end;
            writeln();
        end;

    for i := 1 to n do
        for k := 1 to n do
            if (a[i, k] > a[imax, kmax]) then begin
                imax := i;
                kmax := k;
            end;

    for k := 1 to n do
        sum := sum + a[imax, k];

    writeln('Строка: ', imax, '; сумма: ', sum);
end.