Me compila el siguiente programa, pero me aparece el error 103. Creo que se refiere a que no se abrió el archivo. ¿Cómo lo puedo solucionar? Pensé que era la dirección del archivo de texto pero al parecer está bien.
program ejercicio;
VAR
cont1: real;
archivo: text;
A: real;
B: Boolean;
begin
assign(archivo,'/Users/tomasmatarazzo/programacion/ascendente.txt');
reset(archivo);
B := True;
cont1 := 0;
while not eof (archivo) do
begin
readLn(archivo,A);
if A < cont1 then
B := False
else
cont1 := A;
close(archivo);
end;
if B then
writeln('Los numeros se encuentran en forma ascendente')
else
writeln('Los numeros no se encuentran en forma ascendente');
end.``