Написать программу которая решает уравнение kx+b=0.Пользователь выбирает сколько уравнений решать и вводит числа k и b — Pascal(Паскаль)

uses crt;
var x,k,b:real;
    n,i:byte;
begin
clrscr;
write('Сколько решить уравнений n=');
readln(n);
i:=0;
while i<n do
 begin
  i:=i+1;
  writeln('Введите коэффициенты уравнения kx+b=0 k,b');
  readln(k,b);
  if(k=0)and(b=0) then writeln('x-любое число')
  else if(b<>0)and(k=0) then writeln('Решений нет')
  else writeln('x=',-b/k:0:2);
 end;
readln
end.