Вычислить сумму элементов второй строки массива с[1..6,1..6] — Pascal(Паскаль)

Program mas;

Const
  n = 6;

Var
  a: array [1 .. n, 1 .. n] of byte;
  s: word;
  i, j: integer;

Begin
  Write('Исходный массив: ');
  For i := 1 to n do
  begin
    For j := 1 to n do
    begin
      a[i, j] := random(20);
      Write(a[i, j]:3);
    end;
    Writeln;
  end;
  s := 0;
  For j := 1 to n do
    s := s + a[2, j];
  Writeln('Сумма элементов 2-й строки = ', s);

End.