Pascal ABC Цикл for to do Задание в файле Помогите пожалуйста 

VAR    i, j: Integer; BEGIN    Write(' ');    for i := 1 to 9 do Write(i,' '); Writeln;    for i := 1 to 9 do begin       Write(i,' ');       for j := 1 to 9 do          if (i*j > 9) then Write(i*j,' ')          else Write(i*j,' ');       Writeln;    end; END.