Исправить exit на формальный выход из цикла

uses crt;
type
arr=array[1..100] of real;
ar2=array[1..100,1..100] of real;
var
A,Mx:arr;
 
My:ar2;
Xn,Dx,B,An,Ak,Da,Y,Eps,Z,Zt,C,D:real;
m,n,Er,Km:integer;
    
//Процедура Err    
procedure Err(X,C,B:real;  var Er: integer);
begin
if c*x+b*b<0 then
Er:=0;
 end;
 
//Процедура вычисления функции
function F(X:real):real ;
begin
F:=1.8*sqr(sqr(x))-sin(10*x-9.9);
end; 
 
//Процедура вычисления корня уравнения
procedure 
F(C, D, Eps: real; Km: integer; var Er: integer; var Z: real);
var
i: integer;
begin
Er := 1;
while i <> Km do
begin
Z := (C + D) / 2;
if abs(F(Z)) > Eps then
begin
if F(D) * F(Z) > 0 then
D := Z
else
C := Z;
end
else
begin 
Er := Er - 1;
end;
end;
end;
 
//Процедура Tab
procedure Tab(Xn,Dx,B:real; var a:arr; An,Ak,Da:real; var N,M:integer;  var Mx:arr;var My:ar2);
var
i,j:integer;
x:real;
begin
m:=1; A[m]:=An;
repeat
for j:=1 to n do
begin
X:=Xn;Er:=1;
for i:=1 to n do
begin
Err(X,A[j],B,Er);
if Er=0 then
 
writeln ('отрицательное подкоренное выражение')
 
y:=(sqrt(B+A[j])-X*X*X)/(sin(pi*X)+cos(pi*(A[j]*B-sqrt(X))));
Mx[i]:=x;
My[j,i]:=y;
x:=x+Dx;
end;
end;
m:=m+1;
A[m]:=A[m-1]+Da;
until A[m]>Ak;
end;
 
//Процедура вывода значений функции
procedure Massout(N,m:integer; Mx:arr; My:ar2);
var
i,j:integer;
begin
if Er<>0 then
begin
writeln('   A       X       Y' );
for i := 1 to N do
begin
for j := 1 to m do
begin
write(A[j]:7:3);
write(Mx[i]:7:3);
writeln(My[i,j]:10:3);
end;
end;
end;
end;
 
 
//Основная программа
begin
writeln('введите C,D');
readln(C,D);
writeln('введите количество итераций');
readln(Km);
writeln('введите погрешность');
readln(Eps);
writeln('Введи начальное значение параметра А, конечное, шаг изменения (An,Ak,Da)');
readln(An,Ak,Da);
writeln('введите Xn,Dx,N');
readln(Xn,Dx, N);
 
//Вызов процедуры вычисления корня нелинейного уравнения
F(C,D,Eps,Km,Er,Z);
if Er=1 then
begin
writeln('Корень не найден за ',Km:3,' итераций');
exit
end;
Zt:=F(Z);
B:=Z;
writeln('B=',B:7:3,' Zt=',Zt:7:3);
//Вызов процедуры Tab
Tab(Xn,Dx,B,A, An,Ak,Da,N,M,Mx,My);
// Вызов прцедуры Out
Massout(N,m, Mx, My);
end.