delphi циклы, можно ли код переделать под условия?

[lenar]

delphi циклы
 
можно ли этот код
program Project2;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var i, i2, x2, x4 : integer;
g: string;
begin
Writeln ('skolko raz povtorit vnytrennii cikl');
Readln (x4);
for i2:=1 to x4 do
begin
Writeln ('text povtoreniya?');
Readln (g);
Writeln ('kol-vo povtorov?');
Readln (x2);
for i:=1 to x2 do Writeln (g);
end;
readln
end.

переделать под условия

добавление в предыдущую программу внешнего диалогового цикла для многократного повтарения программы по желанию пользвателя. реализовать 2 врянта внешнего цикла с помощью разных циклических операторов.

[wital1984]

Насколько я помню, в Delphi это можно организовать при помощи функции MessageDlg()