в графике необходимо соединить отрезки

[strateg66]

В этой программе есть два отрезка параллельные оси ординат, которые не получается вывести. Необходимы изменения вместо
else
if (x=1) then y:=2
и
else
if (x=3) then y:=1

program zadacha24;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
n,i:ShortInt; // параметр внешнего цикла
x, youble; // абсцисса и ордината графика
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.