сохранение файла...

[evlampus76]

Доброго времени суток, помогите плз, уже моск кипит....
не сохраняет информацию abitur.txt
заранее спасибо

 Uses crt, WINDOS;
 Const N = 5;
 
 Type
   abitur = record
    FIO : record
     nam : String;
     otch : String;
     lastn : String;
    end;
    year : 1990..2011;
    average : Real;
    mark : array[1..10] of Shortint;
   end;
 
 Var
  a : abitur;
  ch : Char;
  i : Integer;
  Output : File of abitur;
 
BEGIN
 clrscr;
 ch:='l';
 repeat
  Writeln('Vvedite FIO abituenta : ');
  with a.FIO do Readln(nam,lastn,otch);
  with a do
   begin
    Write('God rozhdenija : '); Readln(year);
    Write('Srednii bal v attestate : '); Readln(average);
    Writeln('Vvedite ',N,' ocenok vstupitelnyx jekzamenov : ');
    for i:=1 to N do
      Readln(mark[i]);
   end;
  Writeln;
  Write('Prodolzhit? (y/n) : '); ReadLn(ch);
 until ch='n';
 assign(output,'abitur.txt'); Rewrite(output);
END.

[Grag]

Вообще-то, хорошо бы все-таки начать изучать Паскаль!!!
Ибо Output -это по умолчанию экранный девайс... Да и вывод я не увидел, а только связывание с файловой переменной и открытие на вывод, но без самого вывода...

[Shift_sk]

добавь вот такое

var f:text;
assign(f,'out.txt');
rewrite(f);
write(f,твоя переменная содержащая время!)ж
всё)