Вычислить корни системы уравнений - Pascal ABC

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

Само задание во вложении. Помогите, пожалуйста. Вообще не представляю как сделать. Можно в принципе просто алгоритм написать дабы сам додумал как сделать. Всё, что написал... это только ввод A. Всё оО Что дальше делать не представляю. Ну вернее Y вроде написал. Но потом что то дошло, что неизвестных многовато...

                    Листинг программы
                
 
                        
                          
                    
var A,Y,y,x:real;
    s:string;
    err:integer;
begin   
    repeat
        write('Введите число A (Целое): '); readln(s);
        val(s, A, err);
        if(err <> 0) then writeln('[!] Ошибка ввода. Повторите');
    until (err = 0)
    
    Y:=(-4-A*x+x+A*y)*A;
end.

Решение задачи: «Вычислить корни системы уравнений»

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

procedure korni(a:integer;var x,y:real);
var d,d1,d2:integer;
begin
d:=a*a-1;
d1:=a-5;
d2:=5*a-1;
if a=5 then writeln('Корней нет')
else
 begin
  x:=d1/d;
  y:=d2/d;
  writeln('x=',x:0:2,' y=',y:0:2);
 end;
end;
var n,a:integer;
    x,y:real;
begin
write('n=');
readln(n);
for a:=2 to n do
korni(a,x,y);
end.

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

В начале кода объявляются переменные n, x и y типа integer и real соответственно.
Затем вызывается процедура korni с аргументами n, x и y.
Внутри процедуры объявляются три дополнительные переменные d, d1 и d2 типа integer.
Вычисляется значение переменной d как a*a-1.
Значения переменных d1 и d2 вычисляются как d1=a-5 и d2=5*a-1.
Проверяется условие a=5. Если оно истинно, то выводится сообщение Корней нет.
Если условие не выполняется, то выполняется блок else.
Внутри блока else вычисляются значения переменных x и y как x=d1/d и y=d2/d соответственно.
Выводится сообщение с значениями x и y.
Конец программы.