Не могу разобраться с заданием

var
  k, n: integer;
  x, x0, x1, q, r, b, c, d: real;
  
begin
  writeln('Введите вещественные числа:');
  write(' q = ');
  readln(q);
  write(' r = ');
  readln(r);
  write(' b = ');
  readln(b);
  write(' c = ');
  readln(c);
  write(' d = ');
  readln(d);
  writeln('Введите номер:');
  write(' n = ');
  readln(n);
  x0 := c; //нулевое значение
  x1 := d; //первое значение 
  for k := 2 to n do
  begin
    x := q * x1 + r * x0 + b; //вычисляем k-е значение
    x0 := x1; //(k-2)-й элемент заменяем на (k-1)-й
    x1 := x //а (k-1)-й заменяем на k-й
  end;
  writeln;
  writeln('Результат:  x[', n, '] = ', x:0:4);
end.

var q,r,b,c,d,x0,x1,x:real;
    n,i:integer;
begin
writeln('Введите q,r,b,c,d');
read(q,r,b,c,d);
repeat
write('n>1 n=');
read(n);
until n>1;
x0:=c;
x1:=d;
for i:=2 to n do
 begin
  x:=q*x0+r*x1+b;
  x0:=x1;
  x1:=x
 end;
write('x',n,'=',x:0:2);
end.