Вычислить функцию y=(x-7)/(x+5) при любом значении x

Паскаль 
var
max,x,y:real;
begin
readln(x);
введите другое значение для x');
readln(x);
end;
y:=(x-7)/(x+5);
writeln(y);
end.

Program First;
var
x, y : longint;
begin
readln(x);
y:=(x-7)*(x+5);
writeln(y);
end.