как напечатать таблицу умножения на паскале?

uses
wincrt;
var
x,y:0..10;
s:integer;
begin
for x:= 0 to 10 do
for y:= 0 to 10 do
begin
s:=(x+1)*(y+1);
write(s:5);
end;
writeln;
end.