ну дак уже писали же: вставляем код #10#13, это коды возврата каретки (13) и новой строки(10). Вот как раз после вложеного цикла, добавляем в строку это #10#13.
Код:
For i:=0 to 4 do
begin
for j:=0 to 3 do
s:=s+IntToStr(mas[i,j]);
s:=s+#10#13;
end;
Думаю с разделением пробелом числа не так сложно и писать не буду, мозг нужно тренеровать, попробуйте сами сначала, а потом уж пишите если не получится.