Странный вывод индексов в цикле, Программа выводит не те индексы Опции

[Vasya_linux]

Доброго времени суток, уважаемые!
Программа (код ниже) работает, но вывод какой-то очень странный.
Вместо того, чтобы вывести что-то типа:
(tt) 1 2 3 4 ... 20
(J3) 1500 1450 1400 ... 500


Выводит следующее:
(tt) 1 2 3 ... 20
(J3) 500 500 500 ... 500

Помогите пожалуйста, в чем ошибка не понимаю.

program s;
var
i,tt,J3:integer;
begin
J3:=1500;
for tt:=1 to 20 do
begin
J3:=J3-50;
end;
writeln('');
for tt:=1 to 20 do write (tt:4);
writeln('');
for tt:=1 to 20 do write (J3:4);
writeln('');
end.

[IUnknown]

А так:

program s;
var
   i,tt,J3:integer;
begin
   J3:=1500;
   writeln('');
   for tt:=1 to 20 do write (tt:5);
   writeln('');
   for tt:=1 to 20 do
   begin
      write (J3:5);
      J3 := J3 - 50;
   end;
   writeln('');
end.

?

[Vasya_linux]

Спасибо, вот здорово!
Завтра притащу полный цикл, там сложнее.

Сообщение отредактировано: Vasya_linux - 15.02.2012 17:13