Tabliczka mnożenia - pętla while

uses crt;
var tab:array[1..10,1..10] of byte;
    i,j: byte;


begin
clrscr;
i:=1;
j:=1;
while i <= 10 do begin

      while j <= 10 do begin
            tab[i,j]:=i*j;
            write(tab[i,j]:4);
            inc(j);
      end;
          inc(i);
          writeln;
    end;

end.

Co mam źle? Ze wyswietla tylko pierwszy wiersz.

j:=1; - musi być wiersz niżej
strasznie to skomplikowałeś, wystarczy:

var y,x:Byte;
begin
  for y:=1 to 10 do for x:=1 to 10 do if x<10 then Write((y*x):4) else WriteLn((y*x):4);
end.

przerób to na for albo dodaj j:=1 przed wewnętrzną pętlą.