[Black Raider]

подправлю чуть...

Код:

while (j<=max) do
begin
j:=j+1;
i:=1;
  while i<=n do
	begin
        i:=i+1;