Рекурсия в Delphi.

[SuperHome]

Привет всем. Дело в том, что написав основную часть кода программы (пишу под DOS), я решил прилатать к ней функцию повтора/выхода. Как вы могли догадаться, я не смог этого сделать, ибо чайник. Вот исходник:

program Hello_World; // Это программа для перевода Byte в KByte, MByte...

{$CONSOLE APPTYPE}

Uses
SysUtils;

type
Infinity = 0 .. 999999999999999999; // Integer маловат
var
B, KB, MB, GB, TB: Infinity; // Переменные. Просто переменные.

const
X = 1024; // Кратный множитель. В нашем случае кратное делимое.


begin
ReadLn(B); // Пользователь указывает кол-во байтов.
KB := B div X;
MB := KB div X;
GB := MB div X;
TB := GB div X; // Машина переводит их в другие единицы СИ
WriteLn(KB);
WriteLn(MB);
WriteLn(GB);
WriteLn(TB); // Вывод данных на экран.
...
{А вот тут по идее должна располагаться функция ReStart/Bay bay.
В моих исходниках тут стоит "ReadLn"}
end.

Будьте добры, помогите приклеить данную функцию.

[BDA]

repeat
ReadLn(B); // Пользователь указывает кол-во байтов.
KB := B div X;
MB := KB div X;
GB := MB div X;
TB := GB div X; // Машина переводит их в другие единицы СИ
WriteLn(KB);
WriteLn(MB);
WriteLn(GB);
WriteLn(TB); // Вывод данных на экран.
readln;
until b=0;

Да, только это не рекурсия, а цикл с постусловием будет.
Рекурсия - вызов самой себя, т.е. процедуры.

[s-andriano]

Какое отношение имеет Delphi к DOS?

[SuperHome]

Спасибо огромное.

P.S.
s-andriano: я имел ввиду консоль.