unit module;
interface
uses crt;
type TRec=record
       numGroup:string[50];
       lastName:string;
       name:string;
       otchestvo:string;
       grunt:string;
     end;
procedure okno;
procedure clr;
procedure createFile(filename:string);
function filefound(filename: string): boolean;
procedure AddStud(filename:string);
procedure printStud(filename:string);

implementation
procedure okno;
begin
  window (12,7,65,20);
  TEXTBACKGROUND(11);
  CLRSCR;
  textcolor(0);
  window (13,7,65,20);
  clrscr;
end;
procedure clr;
begin
  clrscr;
  window(0,0,80,40);
  TEXTBACKGROUND(0);
  clrscr;
  TEXTCOLOR(15);
  window(0,0,80,40);
  clrscr;
end;

function filefound(filename: string): boolean;
var
  f:file of TRec;
begin
  {$i-}
    assign(f,filename);
    reset(f);
    close (f);
  {$i+}
  filefound:=(ioresult=0);
end;

procedure createFile(filename:string);
var
  f: file of TRec;
begin
  assign(f, filename);
  rewrite(f);
  close(f);
end;

procedure AddStud(filename:string);
var f:file of TRec;
    stud: TRec;
    Astud:array[1..100] of Trec;
    key:char;
    k,i:integer;
begin

  assign(f,filename);
  Reset(f);
  i:=1;
  while(not eof(f)) do
  begin
    read(f, stud);
    inc(i);
    Astud[i].numGroup:= stud.numGroup;
    Astud[i].lastName:= stud.lastName;
    Astud[i].name:= stud.name;
    Astud[i].otchestvo:= stud.otchestvo;
    Astud[i].grunt:= stud.grunt;
  end;
  close(f);
  k:=i;

  repeat

    clrscr;
    okno;
    inc(i);
    writeln('Введите группу:');
    readln(Astud[i].numGroup);
    writeln('Введите фамилию:');
    readln(Astud[i].lastName);
    writeln('Введите имя:');
    readln(Astud[i].name);
    writeln('Введите отчество:');
    readln(Astud[i].otchestvo);
    writeln('Введите сумму стипендии (в гривнах) или 0 если студент без стипендии');
    readln(Astud[i].grunt);

    writeln('Для выхода нажмите <ESC>  и любую клавишу для продолжения');
    key:=readkey;

  until ord(key)=27;

  rewrite(f);
  seek(f,filesize(f));
  k:=i;
  for i := 1 to k do
      begin
        write(f,Astud[i]);
      end;
  close(f);
  clr;

end;

procedure printStud(filename:string);
var
  f: file of TRec;
  stud: TRec;
  j:byte;
begin
  j:=0;
  okno;
  assign(f, filename);
  reset(f);
  while(not eof(f)) do
  begin

  begin
    read(f, stud);
    if (stud.numGroup<>'')then
    begin
    writeln('Группа  - ', stud.numGroup);
    writeln('Фамилия - ', stud.lastName);
    writeln('Имя - ', stud.name);
    writeln('Отчество - ', stud.otchestvo);
    writeln('Стипендия - ', stud.grunt);
    inc(j);
    end;
    if (j = 3) then
       begin
         writeln('Для вывода следующей страницы нажмите любую клавишу');
         j:=0;
         readkey;
         clrscr;
       end;
   end;
   end;
  close(f);

end;
end.

Program Pract;
uses crt, module;

var
  f:file of TRec;
  filename:string;
  r:integer;
  key:char;
  ch:char;
  k:integer;
begin


  repeat
   clrscr;
   okno;
   writeln('1. Создать файл');
   writeln('2. Добавить в файл информацию о студентах');
   writeln('3. Вывести информацию из файла на экран');
   writeln('ESC - выход');
   ch:=readkey;
   case ch of
      '1': begin
             clrscr;
             okno;
             writeln('Укажите полное имя файла');
             readln(filename);
             createFile(filename);
             writeln('Файл ',filename,' успешно создан');
             writeln('Для продолжения нажмите любую клавишу...');
           end;
      '2': begin
             clrscr;
             okno;
             writeln('Укажите полное имя файла');
             readln(filename);
             if(not (filefound(filename))) then
               begin
                 textcolor(12);
                 writeln('Ошибка! Файл ',filename, 'Не найден');
                 textcolor(15);
                 writeln('Создать файл с текущим именем? y - да, N - нет');
                 ch:=readkey;
                 case ch of
                   'Y','y','Н','н':begin
                                     createFile(filename);
                                     writeln('Файл ',filename,' успешно создан');
                                     writeln('Для продолжения нажмите любую клавишу...');
                                   end;
                   'N','n','Т','т':begin

                                   end;
                 end;
               end
             else
               begin
                 AddStud(filename);
               end;
           end;
      '3': begin
              clrscr;
              okno;
              writeln('Укажите полное имя файла');
              readln(filename);
              if(not (filefound(filename))) then
               begin
                 textcolor(12);
                 writeln('Ошибка! Файл ',filename, 'Не найден');
                 textcolor(15);
                 writeln('Для продолжения нажмите любую клавишу...');
                 readkey;
               end
               else
                printStud(filename);
                writeln('Для продолжения нажмите любую клавишу...');
                readkey;
           end;
   end;
  until(ord(ch) = 27);
end.

     Группа      Фамилия    Имя   Отчество    Стипендия
       66          Iv        Iv      Iv            50
       44          Pet       Pet     Pet           75
       11          Sid       Sid     Sid            0