Дан двухмерный массив из 15 строк. Вставить в него строку из нулей после всех строк, номер которых кратен трем

program a;
var
 a:array[1..30,1..2] of integer;
 i,j,t:integer;
   f1, f2: text;
begin
assign(f1,'1.in');
reset(f1);
assign(f2,'1.out');
rewrite(f2);
for i:=1 to 15 do
 for j:=1 to 2 do
  readln(f1,a[i,j]);
for i:=1 to 15 do
 if i div 3 = 0 then
  begin
   for t:=29 downto i+1 do
    for j:=1 to 2 do
     a[t+1,j]:=a[t,j];
   for j:=1 to 2 do
     a[i,j]:=0;
  end;
for i:=1 to 5 do
 for j:=1 to 5 do
  writeln(f2,'A[',i,',',j,']',a[i,j]);
 close(f1);
 close(f2);
end.

program sds;
var  a:array[1..20,1..2] of integer;
     i,j,t:integer;
     f1, f2: text;
begin
assign(f1,'1.in');
reset(f1);
assign(f2,'1.out');
rewrite(f2);
for i:=1 to 15 do
    for j:=1 to 2 do
        readln(f1,a[i,j]);
for i:=15 downto 1 do
    if i mod 3=0 then
       begin
       for t:=20 downto i+1 do
           for j:=1 to 2 do
               a[t,j]:=a[t-1,j];
       for j:=1 to 2 do
           a[i+1,j]:=0;
       end;
for i:=1 to 20 do
    begin
    for j:=1 to 2 do
        write(f2,'A[',i:2,',',j:2,'] ',a[i,j]:4,' ');
    writeln;
    end;
close(f1);
close(f2);
end.