Программа на Паскаль Составить таблицу умножения

Program tablumn;
Uses crt;
Var x, y: 1..9;
Begin
     For x:=1 to 9 do
     Begin
         Writeln;
          For y:=1 to 9 do
             Write (x*y:3)
     End;
Readkey;
End.