[sid]

Направте меня на путь истинный. Мне нужно только чтобы по горизонт. двиг.

Код:

type TRecord = record
 x:integer;
 y:integer;
end;

var
 a: array[1..5] of TRecord;
 i: integer;
begin
 For i:= 1 to 5 do
 begin
  DrawRectangle(a[i].x+i*20, a[i].y, a[i].x+20, a[i].y+20);
 end;
end.