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