請將以下Pascal 的For... to... do改為while..do...loop及 repeat until

請將以下Pascal Programming的 For.....to...do....loop改寫為：
while...do...loop 及 repeat...until...
------
program Timestable;
var
i,,j : integer ;
begin
writeln('***Multiplication Table ***');
for i:= 1 to 5 do
begin
for j:= 1 to 7 do
write(i:3,'x',,j:2,'=',i*j:2);
writeln;
end;
end.
(Output要一樣)