Числа Фибоначчи - Pascal ABC (14394)

Формулировка задачи:

Дано целое число N (> 1), являющееся числом Фибоначчи: N = FK. Найти целые числа FK–1 и FK+1 — предыдущее и последующее числа Фибоначчи. Помогите решить задачу с помощью цикла с постусловием.

var  //описанмие переменных
N, a, b , T:integer;   //описание переменных
begin  //начало програмы
writeln ('Введите число Фибоначчи');
readln (N);   //вводим число фибоначчи
a:=1; //присваиваем а значение 1
b:=1; //присваиваем b значение 1
Repeat
T:=b;    //Вычисление
b:=a+b;  //Вычисление
a:=T;    //Вычисление
until (N>b);
writeln('следующее число фибоначчи', ' ', b+a); //вычисляем следующее значение
writeln('Предыдущее число фибоначчи', ' ', a);  //и пишем предыдущее
end.   //конец программы

пробовал так но вычисления не верные получаются

Решение задачи: «Числа Фибоначчи»

Листинг программы

var  n, a, b :integer;  
begin 
writeln ('Введите число Фибоначчи');
readln (n);   //вводим число фибоначчи, и только его
a:=1; 
b:=1; 
Repeat
b:=a+b; 
a:=b-a; 
until b=n;
writeln('следующее число фибоначчи', ' ', b+a); 
writeln('Предыдущее число фибоначчи', ' ', a); 
end.

Объяснение кода листинга программы

В начале объявляются три переменные типа Integer: n, a и b. Они будут использоваться для хранения чисел Фибоначчи, а также для выполнения операций с этими числами.
Затем выводится сообщение «Введите число Фибоначчи», чтобы пользователь мог ввести нужное число.
С помощью функции readln() происходит чтение введенного пользователем числа и его сохранение в переменной n.
Далее переменные a и b инициализируются значениями 1. Это начальные значения для вычисления чисел Фибоначчи.
Затем идет цикл Repeat-Until, который выполняется до тех пор, пока значение переменной b не станет равным значению переменной n.
Внутри цикла переменная b присваивается значение суммы переменных a и b, а переменная a присваивается значение разности переменных a и b.
После окончания цикла выводится сообщение с текущими значениями переменных a и b, а также следующим числом Фибоначчи.
Код завершается.