Создание и корректировка файла, содержащего сведения об абитуриентах

Program Prog;
Uses
 Classes, SysUtils;
type Zap=record
  fio: string[25];
  spec: string[25];
  ocfiz: string[1];
  ocmatem: string[1];
  ocliter: string[1];
end;
var f: file of string;
fio1: string; 
reg: integer;
q: Zap;
begin
assign(f,'d:\Proga\abitura.dat');
reset(f);
writeln ('Режим ввода – 1; режим корректировки - 2');
read(reg);
if reg=1 then 
begin
{Режим ввода}
Writeln(‘Режим ввода’);
Rewrite(f);
repeat
  writeln ('Фамилия и инициалы ');
  read(q.fio);
  writeln ('Специальность ');
  read (q.spec);
  writeln ('Оценка по физике ');
  read (q.ocfiz);
  writeln ('Оценка по математике ');
  read (q.ocmatem);
  writeln ('Оценка по литературе ');
  read (q.ocliter);
write(f);
until (q.fio<>’***’);
end;
{Конец режима ввода}
if reg=2 then do
begin
 {Режим корректировки}
 Writeln(‘Режим корректировки’);
  writeln ('Фамилия и инициалы ');
  read(fio1);
 while ((fio1<>’***’) and (not Eof(f))) do
  begin
    read(f);
     if q.fio=fio1 then do
     begin
       writeln(‘Fam ’q.fio,’Spec ’, q.spec,’Fiz ’,q.ocfiz,’Matem ’,q.ocmatem,’Liter ’, q.ocliter);
       write(f);
     end;
   end; {пока не конец файла f & фамилия #***}
end; {Конец режима 2-корректировки}
 
close(f); 
end.

Reset(f);
case IOResult of
0: ;
2:
  begin
    Rewrite(f);
    if IOResult<>0 then begin
      WriteLn('Ошибка: не удалось создать файл'); Halt;
    end;
  end;
else
  begin
    WriteLn('Ошибка: не удалось открыть файл'); Halt;
  end;
end;

begin
  WriteLn(FileMode);
end.

Program Prog;
type 
Zap=record
  fio: string[25];
  spec: string[25];
  ocfiz, ocmatem, ocliter: 1..5;
end;
var f,f1: file of Zap;
f2: text;
fio1,spec1: string[25]; 
q2: string;
reg, vv: integer;
q: Zap;
usl: boolean;
begin
 
procedure Vvod;
begin
{Режим ввода}
Writeln(‘Режим ввода’);
Writeln(‘Ввод с нуля – 0 или добавление - 1’);
readln(regv);
if regv=0 then rewrite(f)
              else if regv = 1 then begin reset(f); seek(f,fileSize(f)); end
                                     else begin writeln(‘Неверный режим’); exit; end;
Usl:=true;
While usl do
  begin
  readln;  
  writeln (‘Фамилия и инициалы ‘);
  readln(q.fio);
  if q.fio<>’***’ then 
  begin
   writeln (‘Специальность ‘);
   readln (q.spec);
   writeln (‘Оценка по физике ‘);
   readln (q.ocfiz);
   writeln (‘Оценка по математике ‘);
   readln (q.ocmatem);
   writeln (‘Оценка по литературе ‘');
   readln (q.ocliter);
   writeln(q.fio,q.spec,q.ocfiz,q.ocmatem,q.ocliter);
   write(f,q);
   vv:=vv+1;  {подсчет числа записанных записей}
 end else usl:=false;
end;
writeln(‘число записей-’,vv);
end; {Конец процедуры Vvod режима ввода 1}
 
procedure Korr; {Режим корректировки}
begin
 Writeln(‘Режим корректировки 2’);
 Usl:=true;
 Reset(f);
 While usl do
  Begin
   Readln;
   writeln (‘Фамилия и инициалы ‘);
   readln(fio1);
   if fio1=’***’ then usl:=false;
   while ((fio1<>’***’) and (not Eof(f))) do
     begin
       read(f,q);
        if q.fio=fio1 then 
        begin
             writeln(‘Фамилия ИО ’,q.fio);
             readln(q.fio);
             writeln(’Spec ’, q.spec);
             readln(q.spec);
             writeln(’Spec ’, q. ocfiz);
             readln(q.ocfiz);
             writeln(’Spec ’, q.ocmatem);
             readln(q.matem);
             writeln(’Spec ’, q.ocliter);
             readln(q.ocliter);
             vv:=vv+1; 
             writeln(‘korr ’,q.fio,q.spec,q.ocfiz,q.ocmatem,q.ocliter);
            seek(f,filePos(f)-1);
            write(f,q);
            vv:=vv+1;
            writeln(‘vv-’,vv);
            break;
          end else;
         writeln(q.fio,q.spec,q.ocfiz,q.ocmatem,q.ocliter);
        end; {пока не конец файла f & фамилия #***} 
   if eof(f)=true then begin usl:=false; writeln(‘Конец файла’); end;
 end; {цикл while usl}
end; {Конец режима 2-корректировки proc Korr}
 
procedure Vivod; {Режим 3 – вывод абитуриентов по спец-ти}
begin
 reset(f);
seek(f,0);
 assign(f2,’d:\Proga\abitura2.txt’);
 rewrite(f2); 
 readln;
 writeln(‘Режим вывода абитуриентов по спец-ти’);
 writeln(‘Введите специальность ’);
 readln(spec1);
 while not eof(f) do begin
   read(f,q);
     if q.spec=spec1 then begin
      writeln(f2,q.fio,q.spec,q.ocfiz,q.ocmatem,q.ocliter); {вывод в файл}
      writeln(q.fio,q.spec,q.ocfiz,q.ocmatem,q.ocliter);      {вывод на печать}
      vv:=vv+1; end; 
 end;
close(f2); 
end; {regim 3 proc Vivod}
 
begin
fileMode:=2;
us:=true;
assign(f,’d:\Proga\abitura.dat’);
while us do 
begin
  writeln (‘Режим ввода – 1; режим корректировки – 2, Вывод ФИО по спец-ти - 3’);
  vv:=0;
  read(reg); 
  if reg=1 then begin Vvod; us:=false; end else
  if reg=2 then begin Korr; us:=false; end else 
  if reg=3 then begin Vivod; us:=false; end else
  writeln(‘Неверный режим’); 
end;
close(f);
writeln(‘Конец программы, число записей -’,vv);
end.

  Assign(f2,'d:\Proga\abitura2.txt');

  with q do begin
    WriteLn(    fio,'':25-Length(fio), spec,'':25-Length(spec), ocFiz:6, ocMatem:6, ocLiter:6);
    WriteLn(f2, fio,'':25-Length(fio), spec,'':25-Length(spec), ocFiz:6, ocMatem:6, ocLiter:6);
  end;

  if EoF(f) then ...

var t: String;
...
  with q do begin
    Write('Фамилия И.О. [',fio,']: '); ReadLn(t);
    if t<>'' then fio:=t;
    Write('Специальность [',spec,']: '); ReadLn(t);
    if t<>'' then spec:=t;
    Write('Оценка по физике: '); Read(ocFiz);
    Write('Оценка по математике: '); Read(ocMatem);
    Write('Оценка по литературе: '); ReadLn(ocLiter);
  end;

var
  e: Integer;
...
    Write('Оценка по физике [',ocFiz,']: '); ReadLn(t);
    if t<>'' then Val(t,ocFiz,e);
    Write('Оценка по математике [',ocMatem,']: '); ReadLn(t);
    if t<>'' then Val(t,ocMatem,e);
    Write('Оценка по литературе [',ocLiter,']: '); ReadLn(t);
    if t<>'' then Val(t,ocLiter,e);