Нарисовать четыре линии для разметки поля "крестики-нолики" - PascalABC.NET

Формулировка задачи:

Есть поле 400 на 400 пикселей. Надо сделать процедуру paintfield, которая при открытии программы нарисует четыре линии(далее координаты), причем в графическом окне видно, как они рисуються. Ширина линий 5 пикселей, края закругленные. координаты 1). 100;50 2). 100;350 3). 50;100 4). 350;100 В итоге должено получиться поле для крестиков-ноликов. Надо чтоб линия росла, рисовалась и т.п. на глазах у пользователя.

Решение задачи: «Нарисовать четыре линии для разметки поля "крестики-нолики"»

Листинг программы

uses graphABC;
procedure paintfild;
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
setpenwidth(5);
x1:=50;
y1:=150;
x2:=50;
y2:=250;
x3:=150;
y3:=50;
x4:=250;
y4:=50;
while x1<350 do
 begin
  x1:=x1+1;
  line(50,y1,x1,y1);
  x2:=x2+1;
  line(50,y2,x2,y2);
  y3:=y3+1;
  line(x3,50,x3,y3);
  y4:=y4+1;
  line(x4,50,x4,y4);
  sleep(20);
 end;
end;
begin
setwindowsize(400,400);
centerwindow;
paintfild;
end.

Объяснение кода листинга программы

Используется графический модуль graphABC.
Определена процедура paintfild для рисования поля крестики-нолики.
Задаются координаты для линий поля (x1,y1) - (x2,y2) - (x3,y3) - (x4,y4).
С помощью цикла while рисуются линии с шагом 1 по горизонтали и вертикали.
После каждой линии делается задержка в 20 миллисекунд.
Задаются размеры окна и его центровка с помощью функций setwindowsize и centerwindow.
Вызывается процедура paintfild для отрисовки поля крестики-нолики.
Программа завершается.