Ошибка 100: Ошибка чтения с диска.

[vodilawofer]

Всем привет!


Суть программы:
1. Ввод информации с клавиатуры и запись в файл output.

2. Информация берется из файла input и записывается в output.
ПРограмма выдает ошибку при попытки прочтения типизированного файла.

Прошу помочь кто чем может.


Код программы:

{$R-}program lab8;
const m=5;
n=2;

type
stud=record
fio: string;
ocenki:array[1..m] of integer;
end;

var l,g,i,j,e,f:integer;
k:string;
input: file of stud;
output:text;
a:array[1..n] of stud;

procedure from_file;
begin

     assign (input, 'c://input.txt');
     reset (input);
     for i:=1 to n do
     read (input, a[i]);
     for l:=1 to m do
     read (input, a[g]);

end;

procedure vvod_infor;

begin

     for i:=1 to n do
         begin
         writeln ('vedite fio studenta');
         read (a[i].fio);
     for j:=1 to m do
         a[i].ocenki[j]:=random(1);
end;
readln (k);
writeln ('vvedite kolvo ocenok');
readln (f);

for  i:=1 to n do
     if a[i].fio=k then
     g:=i;
     writeln('vvedite ocenki');
for j:=1 to f do
    readln (a[g].ocenki[j]);
    writeln ('ocenki izmeneni');
    writeln (a[g].fio);

for l:=1 to m do
    writeln (a[g].ocenki[l]);
end;

procedure rachet;
begin
     assign (output, 'c:/output.txt');
     rewrite (output);
     for i:=1 to n do
         writeln(output, a[i].fio:16);
     for l:=1 to m do
         writeln (output, a[g].ocenki[l]);
     close (output);
     writeln;
     writeln;
     write ('ok');
     readln;
end;

procedure menu;
begin
     while e<>2 do
           begin

                writeln ('menu');
                writeln;
                writeln ('1.vvod fio');
                writeln ('2. rachet');
                writeln ('3. from_file');
                writeln ('4. exit');
                write ('=');
                readln (e);
                case e of
                     1: vvod_infor;
                     2: rachet;
                     3: from_file;
                     4: break;
                end;
           end;
end;
begin
menu;
end.

[Hacker19_90]

 'c://output.txt'

и

'c:/output.txt'

поменяйте на 'c:\блаблабла'
короч слешь должен быть одинарным как у меня

[vodilawofer]

ВРяд ли в этом дело. ПРи таком положение слэша в файл output информация записывается.

[vodilawofer]

UPD: поменял, все равно не работает.

[Hacker19_90]

ВРяд ли в этом дело.

лан глядим далльше

procedure from_file;
begin

     assign (input, 'c://input.txt');
     reset (input);
     for i:=1 to n do
     read (input, a[i]);
     for l:=1 to m do
     read (input, a[g]);

end;

теперь что означает Runtime Error 100
Значение ошибки 100
Ошибка чтения с диска

Тип ошибки 100
Ошибка Turbo Pascal, возникшая в процессе выполнения программы

Описание ошибки 100
Генерируется процедурой READ в типизированном файле в случае, если Вы пытаетесь осуществить считывание из полностью прочитанного файла.

ну я думаю понятно

[vodilawofer]

Я смотрел что означает код ошибки.
Пытался исправить ее с помощью while not eof (input) do, но ничего не получилось.