расположить слова в столбик по центру

[Санко]

Расположить по центру текст: «слово 1» «слово 2»… «слово 6», вертикально снизу вверх.(Обязательно использовать gotoxy) Использовать разные цвета.

[puporev]

uses crt;
const n=6;
var s:array[1..n] of string;
    i:byte;
begin
writeln('Введите ',n,' слов');
for i:=1 to n do
readln(s[i]);
clrscr;
for i:=1 to n do
 begin
  gotoXY(40-length(s[i]) div 2,i);
  textcolor(i);
  write(s[i])
 end;
end.

[Санко]

спасибо!!!))