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

[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.