Pascal не записывает результат в текстовый файл

Question

program Noname4; 

function minutes (Amin, Bmin :integer) : integer; 
function time (Aval, Bval :integer) : integer; 
begin 
    if (0 <= Aval) and (Bval < 24) then 
    time :=Bval - Aval; 
    if (0 <= Amin) and (Bmin < 60) then 
    minutes :=Bmin - Amin; 
end; 
var Aval, Bval, n , x , i , y :integer; 
    duom, rez : text; 
begin 
    assign(duom, 'Duomenys2.txt'); 
    Reset(duom); 
    Readln(duom, n); 
    assign(rez, 'Rezultatai2.txt'); 
    rewrite(rez); 
    for i := 1 to n do 
    begin 
    Readln(duom, Aval, Bval, Amin, Bmin); 
    x := time(Aval, Bval); 
    y := minutes(Amin, Bmin); 
    writeln(rez, x); 
    writeln(rez, y); 
    end; 
close(duom); 
close(rez); 
end; 
begin 
end. 

Программа работает нормально, без ошибок, но не записывает результат в файл (Rezultatai2.txt). Я думаю, что он не читает назначенный файл (Duomenys2.txt), потому что я пишу туда, что хочу, и он все еще работает.

Answer 1

Ваша программа фактически пуста. Между началом/окончанием программы нет кода. Следовательно, ваша программа при выполнении, даже если она компилируется и не вызывает ошибок во время выполнения, ничего полезного не делает.