Графика Паскаль - PascalABC.NET

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

Паскаль ABC.NetНа черном фоне графического окна выводится квадрат 200x200, разлинованный белыми линиями на 10x10 клетом.Квадрат располагается в центре графического окна Положение каждой клетки определяется её номерами X и Y Текстовый файл paint.txt задает закраску, клеток следующим образом В каждой записывается положение клетки (координаты X и Y) и три состовляющие (красная,зеленая,синяя) цвета её закраски. Если номера закрашиваемых клеток не являются числами от 1 до 10 или значение цветов не лежит в диапазоне от 0 до 255, то кроме сообщения об ошибке,в окно ничего не вводится

Решение задачи: «Графика Паскаль»

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

uses graphABC;
const n=10;          
var f:text;
    x,y,r,g,b,x0,y0:integer;
    c:Color;
begin
setwindowsize(400,400);
centerwindow;
clearwindow(clBlack);
x0:=100;
y0:=100;
assign(f,'paint.txt');
reset(f);
while not seekeof(f) do
 begin
  read(f,x,y,r,g,b);
  c:=RGB(r,g,b);
  setpencolor(c);
  setbrushcolor(c);
  rectangle(x0+(x-1)*20,y0+(y-1)*20,x0+x*20,y0+y*20);
 end;
close(f);
end.

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

Установка размера окна и его центровка - setwindowsize(400,400); centerwindow;.
Очистка окна - clearwindow(clBlack);.
Установка начальных координат для рисования - x0:=100; y0:=100;.
Открытие файла с данными - assign(f,'paint.txt'); reset(f);.
Чтение данных из файла - read(f,x,y,r,g,b);.
Установка цвета кисти и заливки на основе прочитанных данных - c:=RGB(r,g,b); setpencolor(c); setbrushcolor(c);.
Рисование прямоугольника на основе прочитанных данных - rectangle(x0+(x-1)*20,y0+(y-1)*20,x0+x*20,y0+y*20);.
Закрытие файла - close(f);.
Конец программы - end;.