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

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.

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’);
writeln (‘Режим ввода – 1; режим корректировки – 2’);
read(reg);
if reg=1 then 
begin
{Режим ввода}
Writeln('Режим ввода');
Rewrite(f);
While (q.fio<>’***’) do
  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;
end;
{Конец режима ввода}
if reg=2 then do
begin
 {Режим корректировки}
 reset(f);
Writeln(‘Режим корректировки’);
  writeln (‘Фамилия и инициалы ‘);
  read(fio1);
 while ((fio1<>’***’) and (not Eof(f))) do
  begin
    read(f);
     if q.fio=fio1 then 
     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.

f: file of string;

f: file of Zap;

program Prog;
type
Zap=record
 fio: string[25];
 spec: string[25];
 ocfiz, ocmatem, ocliter: 1..5;
end;  {10}
var
f: file of Zap;
fio1,spec1: string[25];
ocfiz1,ocmatem1,ocliter1: integer;
reg: integer;
q: Zap;
usl: boolean;
begin
Assign(f,'d:\Proga\abitura.dat');
reset(f);
writeln('ђҐ¦Ё¬ ўў®¤* - 1, PҐ¦Ё¬ Є®ppҐЄвЁ®ўЄЁ - 2, ‚лў®¤ ”€Ћ Ї® бЇҐж-вЁ - 3');
read(reg);
if reg=1 then  {2}
begin
{ђҐ¦Ё¬ ўў®¤*}
usl:=true;
while usl do
begin    {22}
 readln;
 writeln('”*¬Ё«Ёп Ё Ё*ЁжЁ*«л ');
 readln(fio1);
 {if fio1='***' then usl:=false;  }
 writeln('‘ЇҐжЁ*«м*®бвм ');
 readln(spec1);
 writeln('ЋжҐ*Є* Ї® дЁ§ЁЄҐ ');
 readln(ocfiz1);
 writeln('ЋжҐ*Є* Ї® ¬*⥬*вЁЄҐ ');
 readln(ocmatem1);
 writeln('ЋжҐ*Є* Ї® «ЁвҐа*вгॠ');
 readln(ocliter1);
 q.fio:=fio1;q.spec:=spec1;
 q.ocfiz:=ocfiz1;q.ocmatem:=ocmatem1;q.ocliter:=ocliter1;
 [COLOR="Red"]Write(f,q);           [/COLOR]{36}
end;
end;
{Љ®*Ґж ०Ё¬* ўў®¤*}
if reg=2 then
begin   {40}
{ђҐ¦Ё¬ Є®а४вЁа®ўЄЁ}
 writeln('”*¬Ё«Ёп Ё Ё*ЁжЁ*«л ');
 read(fio1);
 with q do
 while ((fio1<>'***') and (not Eof(f))) do   {45}
   begin
   Read(f,q);
   if fio=fio1 then
    begin
     writeln('”*¬Ё«Ёп €Ћ ',q.fio,'‘ЇҐж-вм ',q.spec,'Ћж. Ї® дЁ§ЁЄҐ ',q.ocfiz,'Ћж.Ї® ¬*⥬ ',q.ocmatem,'Ћж.«Ёв-ॠ',q.ocliter);
     Write(f,q);
   end;
  end; {Ї®Є* *Ґ Є®*Ґж д*©«* f & д*¬Ё«Ёп # ***}
 end; {Љ®*Ґж pҐ¦Ё¬* 2 Є®ppҐЄвЁp®ўЄЁ}
 
close(f);
end.

program Prog;
 
type
  Zap=record
    fio  : string[25];
    spec : string[25];
    ocfiz, ocmatem, ocliter : 1..5;
  end; {10}
 
 
var
  f   : file of Zap;
  fio1, spec1 : string[25];
  ocfiz1, ocmatem1, ocliter1 : integer;
  reg : integer;
  q   : Zap;
  usl : boolean;
 
begin
 
  WriteLn('Режим ввода - 1, Pежим коppектиовки - 2, Вывод ФИО по спец-ти - 3');
  ReadLn(reg);
 
  FileMode := 2;
 
  Assign(f,'d:\Proga\abitura.dat');
 
  If IOResult <> 0 then
  begin
   WriteLn ('Проблемы с файлом');
   Exit;
  end else
    WriteLn ('Работа с файлом...');
 
  Reset(f);
 
 
  if reg = 1 then  {2}
  begin
 
    {Режим ввода}
 
    usl := True;
 
    while usl <> False do
    begin    {22}
 
      writeln('Фамилия и инициалы << ');
      ReadLn(fio1);
 
      if fio1 = '***' then
        usl := False
      else
      begin
 
        writeln('Специальность << ');
        ReadLn(spec1);
 
        Writeln('Оценка по физике << ');
        Readln(ocfiz1);
 
        Writeln('Оценка по математике << ');
        Readln(ocmatem1);
 
        Writeln('Оценка по литературе << ');
        Readln(ocliter1);
 
       with q do
       begin
           fio     := fio1;
           spec    := spec1;
           ocfiz   := ocfiz1;
           ocmatem := ocmatem1;
           ocliter := ocliter1;
       end;
 
       Write(f,q);          {36}
 
    end;
  end;
 
  end; {Конец режима ввода}
 
  {Режим корректировки}
  if reg = 2 then
    writeln('Еще не готово ');
 
  if reg = 3 then
  begin   {40}
 
     ReadLn(fio1);
 
     with q do
       while ((fio1 <> '***') and (not Eof(f))) do   {45}
       begin
         Read(f,q);
         if fio = fio1 then
         begin
             Writeln('Фамилия ИО ',       fio,
                     ' ~ Спец-ть ',       spec,
                     ' ~ Оц. по физике ', ocfiz,
                     ' ~ Оц.по матем ',   ocmatem,
                     ' ~ Оц.лит-ре ',     ocliter);
             Write(f,q);
         end;
      end; {пока не конец файла f & фамилия # ***}
  end; {Конец pежима 2 коppектиpовки}
 
  close(f);
 
  ReadLn;
 
end.

const
  fName='D:\Proga\abitura.dat';
var
  f: file of Zap;
...
begin
  Assign(f,fName);
  {$I-}
  Reset(f); { пробуем открыть }
  if IOResult<>0 then begin
    Rewrite(f); { пробуем создать }
    if IOResult<>0 then begin
      WriteLn('Ошибка: сбой создания файла ',fName);
      Exit;
    end;
  end;
  {$I+}
   ...
   Close(f);
end.

  Write('Номер записи (1..',FileSize(f),'): ');
  ReadLn(n);
  if (n>0) and (n<=FileSize(f)+1) then Seek(f,n-1)
  else WriteLn('Ошибка: Неправильный номер');

  Seek(f,FileSize(f));

WeiteLn('Ввод данных, завершение - ***');
repeat
  with q do begin
    WriteLn('*** Запись ',FilePos(f)+1);
    Write('Фамилия И.О.: ');
    ReadLn(fio);
    if fio='***' then Break;
    Write('Специальность: ');
    ReadLn(spec);
    Write('Оценки (физика, математика, литература): ');
    ReadLn(ocFiz,ocMatem,ocLiter);
    Write(f,q);
  end;
until False;

  Seek(f,0);
  while not EoF(f) do with q do begin
    Read(f,q);
    WriteLn(fio,'':30-Length(fio), spec,'':30-Length(spec),
      ocFiz:6, ocMatem:6, ocLiter:6);
  end;

  {$I-}
  Reset(f);
  {$I+}

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; {Режим ввода}
Writeln('Режим ввода');
rewrite(f);
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; {Конец режима ввода proc Vvod}
 
procedure Korr; {Режим корректировки}
begin
 Writeln('Режим корректировки 2');
 Usl:=true;
 Reset(f);
 While usl do
  Begin
   Assign(f1,'d:\Proga\abitura1.dat');
   Rewrite(f1);
   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);
            end else;
            write(f1,q); 
            writeln(q.fio,q.spec,q.ocfiz,q.ocmatem,q.ocliter);
            vv:=vv+1;
            writeln('vv-',vv);
        end; {пока не конец файла f & фамилия #***}
if usl=true then begin
close(f); 
close(f1);
erase(f);
rename(f1,'d:\Proga\abitura.dat');
writeln('переименовано');
reset(f); seek(f,0); 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
assign(f,'d:\Proga\abitura.dat');
reset(f);
writeln ('Режим ввода – 1; режим корректировки – 2, Вывод ФИО по спец-ти - 3');
vv:=0;
read(reg); 
if reg=1 then Vvod;
if reg=2 then Korr;
if reg=3 then Vivod;
close(f);
writeln('Конец программы, число записей -',vv);
end.