значит я сама решала но почему-то ошибка не пойму в чем дело...

кто знаешь подскажитье пожалуйста

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
d,x:real;
a,b,m,n:Integer;
begin
writeln('ââåäèòå A,B,');
readln( a,b);
writeln('ââåäèòå m,n,');
readln( m,n);
for a:=1 to m do begin
for b:=1 to n do begin
d:=sqr(b)-4*a*(-1);
if d<0 then begin
writeln('корней нет') end
else if d=0 then begin
x:=(-b)/2*a;
writeln('один корень: ',x);
end else begin
x:=(-b+sqrt(d))/2*a;
writeln('1 корень: ',x);
x:=(-b-sqrt(d))/2*a;
writeln(' 2корень: ',x);
end;
end;
end;
end.