из bas в pas. посоветуйте Спецы. 

Доброго время суток Всем!
Сам ,как нызывают таких - чайник, (просто любитель)
Пол дня потерял пока что,то додумал (Вам смешно.. значит будет)
Проблемка такова:
Есть простой алгоритм на bas ->
..
DIM b$(256)
..
n = 1
FOR f = 1 TO 8
FOR g = 1 TO 8
FOR h = 1 TO 4
PRINT b$(n); : n = n + 1
NEXT h
PRINT ""; : NEXT g
PRINT : NEXT f
..
масив состоит из 0, 1 и впоследствии выводится
1111 1111 1111 ..
1111 1111 1111 ..
..
В общем надеюсь понятно.
Всю эту красоту перенести на pas (чтоб выполнялась также), а вернее на
объектно-ориен. прог-я, тоесть Delphi /в моем случае 7
Использую для вывода компонент Memo. Сохраняю в файл так же через него.
Получилось нечто ->

Var
io : Array of integer;
..
procedure TForm1.Button3Click(Sender: TObject);
var
i, f, g, h : Integer;
Line : String;
begin
SetLength (io, 256);
For i:= Low(io) to High(io) do
begin
io[i] := 1; //заполняем единичками
end;
i:= Low(io);
Memo1.Clear;
For f := 1 to 8 do
begin
For g := 1 to 8 do
begin
For h := 1 to 4 do
begin
Line := Line + IntToStr(io[i]) + ' ';
i := i+1;
Application.ProcessMessages;
end;
Line := Line + ' ';
end;
Memo1.Lines.Add(Line);
Line := '';
end;
..
(А вот теперь смешно?)
Интересует может в глазах специалистов это можно привести в нормальный вид?
Если нет, то и ладно спасибо. И так работает.
Сразу не спросил хотелось самому разобраться. Теперь спрашиваю чтобы исправить
минусы, так как уже мысли не лезут. (ибо заработало :-)

Извените Адм. и Мод. если снова напишите, что не здесь тему кинул. Не вижу другой подходяшей.