Зполните экран зеленоватым цветом.Введите строчку с клавиатуры.Введите строчку в центре

Может быть, "вЫведите строчку в центре экрана"?

ой да,спасибо,

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.