занести код Pascal в файл

[mishammm]

Вот сам код:

const
     n=4;
type
    student=record
    N:byte;
    prizv:string;
    matan:real;
    prog:real;
    Os:real;
    alg:real;
    end;
  var 
        f:file of student; 
        i:integer;
        tabl:array[1..n] of student;
 procedure lin(m:integer);
        var 
           i:integer;
 begin
 for i:=1 to m do 
 write('-');
 writeln;
 end;
 begin
 writeln('VVedi dani stydentiv');
 for i:=1 to 4 do
 begin
 tabl[i].N:=i;
 readln(tabl[i].Prizv,tabl[i].matan,tabl[i].prog, tabl[i].OS, tabl[i].alg);
 end;
 Lin(69);
 writeln('|   | Призвіще | Matematuchnuy | Programyvannya | OS | Algebra | cer|');
writeln('|   |          |    analis     |                |    |  i geom.|    |');
Lin(69);
For i:=1 to n do
begin
write('|', tabl[i].N:2,' |', tabl[i].Prizv:10, '|');
write(tabl[i].matan:15,'|',tabl[i].prog:16,'|', tabl[i].OS:4,'|', tabl[i].alg:9,'|',((tabl[i].matan+tabl[i].prog+tabl[i].OS+tabl[i].alg)/n):0:2,'|');
writeln;
Lin(69);
end;
writeln;
writeln('vidcortov');
Lin(69);
For i:=1 to n do
begin
If ((tabl[i].matan+tabl[i].prog+tabl[i].OS+tabl[i].alg)/4>=4) then
begin
write('|', tabl[i].N:2,' |', tabl[i].Prizv:10, '|');
write(tabl[i].matan:15,'|',tabl[i].prog:16,'|', tabl[i].OS:4,'|', tabl[i].alg:9,'|',((tabl[i].matan+tabl[i].prog+tabl[i].OS+tabl[i].alg)/n):0:2,'|');
writeln;
Lin(69);
end;
end;
end.

думал после обьявление данных, перед процедурок написать
begin
asisgn(f,'anketa')
reset(f)
дальше я так понял где то надо написать while not eof(f) не понимаю где и еще read(f ) влепить куда то надо. помогите плиз

[ZX Spectrum-128]

Нужно введенные данные занести в файл? Перед последним end'ом написать такой код:

Assign(f,'anketa.dat);
Rewrite(f);
For i:=1 to n do
  Write(f,tabl[i]);
Close(f);

[mishammm]

изивините условте не так записал:наоборот надо считывания из дат, а затем использовать в программе введеные в дат

[ZX Spectrum-128]

Разберетесь в каком месте заменить текст программы?
Не забудьте, что файл данных должен быть создан. Запустите сначала первую версию программы, которая и создаст такой файл. А затем эту версию.

Assign(f,'anketa.dat');
Reset(f);
 writeln('vvodyatsa dani stydentiv');
 for i:=1 to 4 do
 begin
   tabl[i].N:=i;
   Read(tabl[i]);

 end;
 Close(f);
 Lin(69);

[mishammm]

как вы и говорили исправил вот так:

const
     n=4;
type
    student=record
    N:byte;
    prizv:string;
    matan:real;
    prog:real;
    Os:real;
    alg:real;
    end;
  var 
        f:text; 
        i:integer;
        tabl:array[1..n] of student;
 procedure lin(m:integer);
        var 
           i:integer;
 begin
 for i:=1 to m do 
 write('-');
 writeln;
 end;
 begin
 assign(f,'anketa.dat');
 Reset(f);
 writeln('VVedi dani stydentiv');
 for i:=1 to 4 do
 begin
 tabl[i].N:=i;
 readln(tabl[i].Prizv,tabl[i].matan,tabl[i].prog, tabl[i].OS, tabl[i].alg);
 end;
 Close(f);
 Lin(69);
 writeln('|   | Призвіще | Matematuchnuy | Programyvannya | OS | Algebra | cer|');
writeln('|   |          |    analis     |                |    |  i geom.|    |');
Lin(69);
For i:=1 to n do
begin
write('|', tabl[i].N:2,' |', tabl[i].Prizv:10, '|');
write(tabl[i].matan:15,'|',tabl[i].prog:16,'|', tabl[i].OS:4,'|', tabl[i].alg:9,'|',((tabl[i].matan+tabl[i].prog+tabl[i].OS+tabl[i].alg)/n):0:2,'|');
writeln;
Lin(69);
end;
writeln;
writeln('vidcortov');
Lin(69);
For i:=1 to n do
begin
If ((tabl[i].matan+tabl[i].prog+tabl[i].OS+tabl[i].alg)/4>=4) then
begin
write('|', tabl[i].N:2,' |', tabl[i].Prizv:10, '|');
write(tabl[i].matan:15,'|',tabl[i].prog:16,'|', tabl[i].OS:4,'|', tabl[i].alg:9,'|',((tabl[i].matan+tabl[i].prog+tabl[i].OS+tabl[i].alg)/n):0:2,'|');
writeln;
Lin(69);
end;
end;
end.

открыл файл anketa.dat где написано:
programyvanna11.1.studentprogramyva nna11.1.studentprogramyvanna11.1.st udentprogramyvanna11.1.student ))
И последий вопрос тут не надо было использовать оператор while not eof(f) покане конец файла?
а так спасибо вас огромное

[ZX Spectrum-128]

Неправильно исправил
Read(f,tab[i]); я написал, прсмотри внимательно.
Вообще ты прав. Надо писать

I:=1;
While not eof(f) do
Begin
  ...
  Read(f,tabl[i]);
  I:=i+1;
End;

[mishammm]

поставил тут tabl[i].N:=i;
readln(tabl[i].Prizv,tabl[i].matan,tabl[i].prog, tabl[i].OS, tabl[i].alg);
Read(f,tabl[i])
и ошибка Нельзя считывать данные этого типа

[ZX Spectrum-128]

Не-не
Read(...
Вместо
Readln(...

[mishammm]

read(f,tabl[i].Prizv,tabl[i].matan,tabl[i].prog, tabl[i].OS, tabl[i].alg); так что ли ?
тогда написало входная строка имеет неверный формат )

[ZX Spectrum-128]

Read(tabl[i]);
Читается запись полностью.