Келесі күннің датасын есептейтін программа құру​

Program arrays;
var a:array [1..3,1..6] of integer;   
i,j:byte;
begin
for i:=1 to 3 do 
    for j:=0 to 1 do   
          begin   
                    a[i,1+3*j]:=random(101)+10;
                    a[i,2+3*j]:=random((1001)+100) div (i+2*j);
                    a[i,3+3*j]:=(random(101)+10) mod 10;   
           end; 
   for i:=1 to 3 do 
           begin 
                      for j:=1 to 6 do   
                                 write(a[i,j],'  '); 
                     writeln;   
         end;
 end.

//Если нужны пояснения - пишите

Живёт одна лошадь за городом.У неё есть  и деньги,и еда,и своё жильё.Читала это лошадка книжки и была самой умной лошадью в посёлке "Копыто".У  неё была целая библиотека этих книг!Но слыхала она что есть такой предмет "ноутбук".Всё у лошади было, а ноутбука нет. Пошла лошадь по магазинам и купила себе 4 ноутбука,себе,соседке,детям и своим родителям. Хорошо лошадь жила с ноутбуком,прекрасно! В онлайне находила нужные ей книжки,игралась чуток в скачки и в покер.Услышала она про планшет.Пошла по магазину купила самый модный,самый красивый,самый большой планшет.Тоже был удобен,но ноутбук был по душе.Весь день в покер играла! А с планшетом с папой общалась,фото фотографировала.Но от ноутбука не отказалась! Продала планшет,ненужная вещь.А за эти деньги присоединила себе интернет!И жила лошадь в обнимку с ноутбуком.