Как ввести в паскаль таблицу пифагора?

примерно вот так
program pif;
uses crt;
var
a: array[1..9,1..9] of integer;
i,j:integer;
begin
clrscr;
writeln('tyablica Pifagora');
for i:=1 to 9 do begin
a[i,1]:=i; a[1,i]:=i; end;
for i:=2 to 9 do
for j:=2 to 9 do a[i,j]:=i*j;
for i:=1 to 9 do begin
for j:=1 to 9 do write(a[i,j]:4);
writeln;
end;

writeln('konec zadachi');
readkey;
end.