Построить график

var x, y: array [0..4] of integer;
    dx, dy: array [0..3] of integer;
    i: integer;
begin
  writeln('Введите значения x и y:');
  for i := 0 to 4 do
    begin
      write('x[', i, '] = ');
      readln(x[i])
    end;
  for i := 0 to 4 do
    begin
      write('y[', i, '] = ');
      readln(y[i])
    end;
  for i := 0 to 3 do
    begin
      dx[i] := x[i + 1] - x[i];
      dy[i] := y[i + 1] - y[i]
    end;
  for i := 0 to 4 do write('|x[', i, '] = ', x[i]);
  writeln('|');
  for i := 0 to 4 do write('|y[', i, '] = ', y[i]);
  writeln('|');
  for i := 0 to 3 do write('|dx[', i, '] = ', dx[i]);
  writeln('|');
  for i := 0 to 4 do write('|dy[', i, '] = ', dy[i]);
  writeln('|');
  readln
end.