Надпись по диагонали Опции

[Slam]

Напечатать исходный текст в следующем виде:
                            Т
                          Е
                        К
                      С
                    Т

[Ivs]

Код

program Text;
uses crt;
var
  s:string;
  x,y:integer;
begin
  ClrScr;
  s:='TEXT';
  x:=length(s);
     for y:=1 to length(s) do
     begin
        gotoxy(x,y);
        write(s[y]);
        dec(x);
     end;
  readln;
end.