Зполните экран зеленым цветом.Введите строку с клавиатуры.Введите строку в центре экрана(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.