Вывод набора символов на экран циклом for (pascal)

[street_spirit]

Необходимо написать программу при помощи операторов цикла for (без применения массивов) для распечатки на экране монитора набора символов:

F
EF
DEF
CDEF
BCDEF
ABCDEF

Я написал код, но когда я его запускаю на экран выводится только:

F

Мой код:

var
i,j: integer;
C: char;
begin

C:='F';

for i:=1 to 6 do
begin
 for j:=i to 1 do
  write(chr(ord(C)-(j-1)));
 writeln;
end;
readln;
end.

Помогите пожалуйста найти ошибку. Заранее спасибо.

[Grag]

Нужно вот так сделать!

for j:=i downto 1 do
  write(chr(ord(C)-(j-1)));
 writeln;

[street_spirit]

Grag, спасибо. Теперь все работает.