Зполните экран зеленым цветом. Введите строку с клавиатуры. Введите строку в центре экрана (Pascsl abc,) помогите

Uses GraphABC;

const

w=800;

h=600;

var

s:string;

x, y:integer;

begin

SetWindowSize (w, h) ;

ClearWindow (clGreen) ;

Write ('Введите текст') ; Read (s) ;

ClearWindow (clGreen) ;

SetFontSize (24) ;

SetFontColor (clRed) ;

x: = (w-TextWidth (s)) div 2;

y: = (h-TextHeight (s)) div 2;

TextOut (x, y, s) ;

end.