Почему не происходит запись в файл?

[RaccoonRocket]

программа отрабатывает, в файл не выводит значения.

program Project1;

{$APPTYPE CONSOLE}

uses SysUtils;

procedure zapis(t:real);
var fname:string; fox:text;
begin
fname:='exam1.txt';
assign(fox,fname);
rewrite(fox);
writeln(fox,t);
close(fox);
end;

procedure zad1;
const pi=3.14;
var s,r:real; f:text;
begin
writeln('zadanie 1. Vichislyt ploshad');
writeln('Vvod R: ');
readln(r);
s:=sqr(r)*(4-Pi)/2;
write('Resultat: ',s:0:0);
writeln;
end;
procedure zad2;
var n,i:integer;
    oc,sm,sr,mx,mn,r:real;
begin
writeln('zadanie 2. Opredelyt" ocenky');
write('Kol-vo sudey n=');
readln(n);
i:=1;
write('Ocenka ',i,'=');
readln(oc);
mx:=oc;
mn:=oc;
sm:=oc;
repeat
i:=i+1;
write('Ocenka ',i,'=');
readln(oc);
if oc>mx then mx:=oc
else if oc<mn then mn:=oc;
sm:=sm+oc;
until i=n;
r:=(sm-mx-mn)/n;
zapis(r);
write('Itog=',r:0:1);
writeln;
end;

var t:real;
Begin
zad1;zad2;
writeln('end');
readln;
end

.

[Stilet]

fname:='exam1.txt';

Пропиши полный путь к файлу.

{$APPTYPE CONSOLE}

Кстати, если у тебя Дельфи то рекомендую работать с файлами (текстовыми) через TStringList:

With TStringList.Create do begin
 Append(FloatToStr(t));
 SaveToFile(ExtractFilePath(ParamStr(0))+'exam1.txt');
 free;
end;

[Serge_Bliznykov]

fox:text;

а разве в Delphi текстовые файлы (в отличие от TP) не имеют тип TextFile ?!

ну и вместо Assign() нужно делать AssignFile()
а вместо close() - CloseFile()

но это так, мысли вслух.
по сути я полностью согласен с мнением Виталия:
1) обязательно указывать полный путь (в его примере файлик будет лежать там же, где и exe-шник проекта)
2) крайне желательно отказаться от старых TextFile и юзать новые методы. Ну, например, методы TStringList (как в примере у Виталия).

[Stilet]

а разве в Delphi текстовые файлы (в отличие от TP) не имеют тип TextFile ?!

То оставлено для совместимости.