найти ошибку

[IceFlame1292]

1)Постановка задачи.
Модернизировать решение задания:"участок леса имеет форму равнобедренной трапеции.Вычислить ее периметр и площадь по заданным сторонам"
таким образом, чтобы ввод входных данных и вывод полученных
результатов осуществлялся через текстовый файл.

2)Программа:
a)

Program trapecia;
    var a,b,c,d,x,h,s,p: real;
    f:text;
    begin
     assign(f, 'c:\cube.txt');
     reset(f);
     readln(f, a,b,c,d,x,h);
     close(f);
     x:=abs((b-a)/2);
     h:=sqrt(c*c-x*x);
     s:=((a+b)*h)/2;
     p:=2*a+c+d;
     assign(f, 'c:\cube.txt');
     rewrite(f,x,h,s,p);
    end.

подчеркивет на предпоследней строчке букву f!не пойму в чем дело!подскажите плиз

а точнее , после f

[veniside]

rewrite() принимает 1 параметр - хендл файла
для записи в файл есть просто write()
и назначай другое имя файла для вывода, а то затрёшь входные данные

[IceFlame1292]

спасибо)))

[Vaigard]

И не забудь закрыть файл в конце, для более корректной работы Тогда последние строки у тебя будут выглядеть так:

rewrite(f);
write(f,x,h,s,p);
close(f);
end.

И второй раз делать assign необязательно Только прогу нагрузишь

[Shift_sk]

а по моему лучше в два отдельных файла сохранять!
f и f2!