Вывод двумерного массива и подсчет суммы каждой строки. Опции

[Legat1177]

Доброго времени суток всем!

есть решенная задача:

Заполните массив случайными числами и подсчитайте сумму по строкам, результат выведите на экран. (пример изображения приложил);

я ее решил таким образом:

uses crt;
const n=5;
var mas:array[1..n,1..n] of integer;
    i,j:integer;
    sum:integer;
Begin
     clrscr;
     randomize;
     for i:=1 to n do
         for j:=1 to n do
         mas[i,j]:=random(10);
         writeln('Вывод массива*');
         for i:=1 to n do
         begin
         for j:=1 to n do
         write(mas[i,j],' ');
         writeln
         end;
         writeln('Вывод суммы элементов строк');
         for i:=1 to n do begin
         sum:=0;
         for j:=1 to n do
         sum:=sum+mas[i,j];
         writeln(sum);
         end;
     readln;
End.

Но преподаватель хочет, чтобы сумма значений считалась сразу при вводе массива... "тогда не будет лишнего прогона по проге"

В этом у меня загвоздка. не понимаю куда нужно перетащить "считалку" и чтобы все осталось работать и выводилось так же как на примере? попробовал сам но у меня программа перестала нормально работать.
вот пример как должно быть:

[Client]

uses crt;
const n=5;
var mas:array[1..n,1..n] of integer;
    i,j:integer;
    sum:integer;
Begin
     clrscr;
     randomize;
     for i := 1 to n do begin
        sum := 0;
        for j := 1 to n do begin
                mas[i,j] := random(10);
                sum := sum + mas[i,j];
                write(mas[i,j]:3);
        end;
        writeln (' sum = ', sum);
     end;
End.