Написать программу в Паскале.
Задача: Заполнить экран синим цветом.Введите строчку с клавиатуры.Выведите строку в правом верхнем углу экрана,вставив в нее после первого заданное слово.

uses  GraphABC;var  s: string; //Вся строка  i: byte;   //Номер нужного словаbegin  readln(s);  readln(i);  s := s.Split(' ')[0] + ' ' + s.Split(' ')[i - 1];  SetBrushColor(clBlue);  FillRectangle(0, 0, WindowWidth, WindowHeight);  GraphABC.SetFontSize(12);  TextOut(WindowWidth - s.Length * 12, 0, s);end.