как нарисовать прямые

[strateg66]

В этой задаче все получается кроме того, что не могу соединить прямыми первый и третий отрезки.И третий и пятый.

program zadacha24;
{$APPTYPE CONSOLE}
 uses
  SysUtils;

var
     n,i:ShortInt;        // параметр внешнего цикла
     x, y:double;       // абсцисса и ордината графика
     h:ShortInt;        // позиция точки на экране 
begin
 // вывод заголовка таблицы
 WriteLn('|   x   |      y     |');
 WriteLn('|-------|------------|');
 // внешний цикл - для 5 периодов
 for n := 0 to 4 do
  begin
   // внутренний цикл для одного периода
   x:=0;
   while (x<4) do
    begin
     // 1-й отрезок
     if (x<1) then y:=x+1
     // 2-й отрезок
     else
       if (x=1) then y:=2

       // 3-й отрезок
       else

       if (x>=1)  and (x<=3) then  y:=3*x/2 -2.5
       else
       if (x=3) then  y:=1
       else
       if (x>3) and (x<4) then y:=1;
       
     // вывод строки таблицы
     Write('|',(x+n*4):7:3,'|',y:12:5,'|');
     // определение позиции точки
     h:=Round((y+1)*10);
     if ((y-1-h*10)>0.5) then h:=h+1;
     // вывод точки графика
     while (h>0) do
      begin
       Write(' ');
       h:=h-1;
      end;
     WriteLn('*');

     x:=x+0.25;

    end;
  end;
 ReadLn;
end.