Паскаль. Вывести заданный массив на печать в несколько строк таким образом, чтобы каждая новая строка, начиная со второй начиналась с четного элемента массива

Введите массив:3 5 1 10 -90 3 7 10 13 1919 5 1 10 -90 3 7 10 13 19

Выводится

Что я делаю не так? – http://img.altcomts.ru/s/177902182053.png

ConstN = 10;VarA:array[1..N] of integer;i:integer;BeginWriteLn('Введите массив:');For i:= 1 to N do    Read(A[i]);Write(A[1],' ');For i:= 2 to N do    Begin    if A[i] mod 2 = 0 then WriteLn;    Write(A[i],' ')    End;End.