A neater way would be as follows:

global
updating procedure SomeImportIn()

begin

while (TestEOF==false) begin
if WrongSettings then begin goto LWhile; end;
....
LWhile:;
if (NextImportLine(false)) then begin end;
end;//while
end;