По информатике ! вывести на экран квадраты и кубы целых чисел от 1 до 8 программа паскаль с циклами ,,пока" "до"

Var i, k: byte;
begin
i := 1;
k := 1;
While i < 9 do begin
  write (i * i,'  ');
  i := i + 1
end;
writeln;
Repeat
  write (k * k * k, '  ');
  k := k + 1;
Until k = 9
end.