Для чего в коде присутствует "пустой" writeln

const
  nmax = 3000;//константа, которая будет указывать граничное число, до которого программа будет вести отсчет
 
var
  a: array[1..nmax] of integer; // объявляем массив
  n, i: integer;
  s: longint;
 
begin//Вводим размер массива. Если он не попадает в заданный по условию диапазон, вводим заново
  repeat
    write('Введите размер массива n (n <= 3000): N=');
    readln(n);
  until (n > 0) and (n <= 3000);
  s := 0;
  writeln('Массив:');
  for i := 1 to n do
  begin
    a[i] := random(19) - 9;
    write(a[i]:4);
    if a[i] > 0 then s := s + a[i];
  end;
  writeln;
  writeln('Удвоенная сумма положительных элементов: S=', s * 2);
end.

'Удвоенная сумма положительных элементов: S='

writeln('Удвоенная сумма положительных элементов: S=', s * 2);

Удвоенная сумма положительных элементов: S=

var
  a: array[1..20,1..20] of integer;
  n,i,j,s: integer;
begin
  repeat
    write('Введите n (n<=20): ');
    readln(n);
  until n in [1..20];
  s:=0;
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:4);
      if i+j=n+1 then s:=s+a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('Сумма элементов побочной диагонали = ',s);
  readln;
end.