Записи

[DrDre9991]

Описать записи, содержащие информацию о:
1) точке: координаты на плоскости и цвет;
2) окружности: координаты центра окружности, радиус и цвет;
3) прямоугольнике: координаты левого верхнего и правого нижнего углов и цвет.
Организовать ввод и вывод данных о геометрических объектах на экран.

[RUSt88]

обращайтесь, сделаю за небольшое вознаграждение

[_-Re@l-_]

1) точке: координаты на плоскости и цвет;
2) окружности: координаты центра окружности, радиус и цвет;
3) прямоугольнике: координаты левого верхнего и правого нижнего углов и цвет.

type 
      pixel = packed record
      x,y:integer;
     color:word;
end;

type
      circle = packed record
     x,y,r:integer;
     color:word;
end;

type
      rectangle = packed record
      x1,y1,x2,y2:integer;
      color:word;
end;

Ввод-вывод осуществляется так:

var
     A:pixel;
     B:circle;
     C:rectangle;
begin
       write('pixel x = ');
       readln(A.X); //вводим координату х точки
       write('pixel y = ');
       readln(A.Y); //вводим координату у точки
       write('pixel color = ');
       readln(pixel.color);

В общем и так со всеми объектами.
Вывод соответственно:

writeln(A.X);
writeln(A.Y);
writeln(A.Color)

Дальше, думаю, сам разберёшься
P.S. Я использовал packed record, это тоже самое что и record только занимает меньше памяти.Ты можешь использовать просто record если не хочешь packed record