Как мне создать цикл в программе

var x0,x1,x2,x3,x4,y0,y1,y2,y3,y4,dx0,dx1,dx2,dx3,dy0,dy1,dy2,dy3:integer;
 
begin
writeln('Введите значения x и y 5 раз начиная с x');
readln(x0,x1,x2,x3,x4,y0,y1,y2,y3,y4);
dx0:=x1-x0;
dx1:=x2-x1;
dx2:=x3-x2;
dx3:=x4-x1;
dy0:=y1-y0;
dy1:=y2-y1;
dy2:=y3-y2;
dy3:=y4-y3;
 
 
writeln('| x0= ',x0,'| x1= ',x1,'| x2= ',x2,'| x3= ',x3,'| x4= ',x4,' | ');
writeln('| y0= ',y0,'| y1= ',y1,'| y2= ',y2,'| y3= ',y3,'| y4= ',y4,' | ');
writeln('| dx0= ',dx0,'| dx1= ',dx1,'| dx2= ',dx2,'| dx3= ',dx3,' | ');
writeln('| dy0= ',dy0,'| dy1= ',dy1,'| dy2= ',dy2,'| dy3= ',dy3,' | ');
readln;
end.

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.

var x, y: array [0..4] of integer;
    dx, dy: array [0..3] of integer;
    d2x: array [0..2] 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];
      d2x[i]:= dx[i+1]-dx[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 3 do write('|dy[', i, '] = ', dy[i]);
  writeln('|');
  for i := 0 to 2 do write('|d2x[', i, '] = ', d2x[i]);
  writeln('|');
  readln;
end.