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

[mishammm]

наверно я не туда вставляю я вставляю код Read(tabl[i]); после tabl[i].N:=i;
p.s. может у вас есть скайп чтобы тут не разводить кучу сообщений. просто я не понимаю куда этот Read(tabl[i]) втулить ))

[ZX Spectrum-128]

Сейчас доберусь до компа. Подправлю и отправлю.

[ZX Spectrum-128]

Первая часть (занесение данных в файл)

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 n 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;
// Запись данных в файл
  Assign(f,'anketa.dat');
  ReWrite(f);
  for i:=1 to n do
    write(f,tabl[i]);
  close(f);
  readln; 
end.

Вторая часть (чтение из файла)

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;
        zap:student;
 procedure lin(m:integer);
        var
           i:integer;
 begin
 for i:=1 to m do
 write('-');
 writeln;
 end;
 begin
 writeln('Вводятся данные из файла');
 assign(f,'anketa.dat');
 i:=1;
 reset(f);
 while not eof(f) do
   begin
     read(f,tabl[i]);
     tabl[i].n:=i;
     i:=i+1; 
   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.

[mishammm]

благодарю вас а почемк на 2 части? програма же в одну можно записать )

[ZX Spectrum-128]

Можно, почему нет
В первую часть вставьте код чтения из файла из второй части.
Сами уж. Комп я выключил

[mishammm]

еще раз спасибо )