тдельно пишем процедуры рисования букв.
А потом из главной программы вызываем эти процедуры.
У меня 3 буквы: C, о и ф.
Остальные процедуры и вызовы допиши сама по образцу!
Uses DrawMan;
procedure BukvaC;
begin
PenDown; OnVector (3, 0); OnVector (-3, 0);OnVector (0, 6);
OnVector (3, 0); PenUp; end;
procedure BukvaO;
begin
PenDown; OnVector (3, 0); OnVector (0, 5); OnVector (-3, 0);
OnVector (0, -5); PenUp; end;
procedure BukvaF;
begin
PenDown; OnVector (0, 5); OnVector (0, 1);
OnVector (2, 0); OnVector (0, -5); OnVector (-4, 0);
OnVector (0, 5); OnVector (2, 0); PenUp; end;
begin
Field (25, 10);
ToPoint (2, 2); BukvaC;
ToPoint (6, 2); BukvaO;
ToPoint (12, 1); BukvaF;
end.