for i := 1 to N do
begin
outtextxy (x, y, mas[i]); {mas[i] - массив строк}
x := x + a; {a - смещение каждого след. эл - та по Х }
y:= y + b; {b - смещение каждого след. эл - та по Y }
end;
for i := 1 to N do
begin
outtextxy (x, y, mas[i]); {mas[i] - массив строк}
x := x + a; {a - смещение каждого след. эл - та по Х }
y:= y + b; {b - смещение каждого след. эл - та по Y }
end;