program lab9_10 uses crt graph label main type student record name str

program lab9_10;
uses crt, graph;
 
label main;
 
type
student = record
    name: string[64];
    result: integer;
    group_number: integer;
    count_students: integer;
end;
 
var
    file_name: string;
    file_object: file of student;
   
    select_char: char;
   
    group_number: integer;
    count_students: integer;
    students: array [1..64] of student;
 
procedure setwindowstyles;
begin
    clrscr;
    textbackground(7);
    clrscr;
    window(1,1,80,1);
    textbackground(3);
    clrscr;
    textcolor(0);
    clrscr;
end;
 
procedure writetowindow(x, y: integer; text: string);
begin
    gotoxy(x,y);
    write(text);
end;
 
procedure enterfilename;
begin
    clrscr;
    window(2,1,79,25);
    textbackground(7);
    textcolor(5);
    clrscr;
   
    write('Enter file name: ');
    readln(file_name);
end;
 
procedure writetofile;
var
    i: integer;
begin
    assign(file_object, file_name);
    rewrite(file_object);
   
    for i := 1 to count_students do
    begin
        students[i].group_number := group_number;
        students[i].count_students := count_students;
 
        write(file_object, students[i]);
    end;
   
    close(file_object);
end;
 
procedure readfromfile;
var
    i: integer;
    tmp: student;
begin
    assign(file_object, file_name);
    reset(file_object);
   
    i := 1;
   
    repeat
        read(file_object, tmp);
       
        students[i].name := tmp.name;
        students[i].result := tmp.result;
        students[i].group_number := tmp.group_number;
        students[i].count_students := tmp.count_students;
       
        group_number := tmp.group_number;
        count_students := tmp.count_students;
       
        i := i + 1;
    until EOF(file_object);
   
    close(file_object);
end;
 
procedure input;
var
    i: integer;
begin
    clrscr;
    window(2,1,79,25);
    textbackground(7);
    textcolor(5);
    clrscr;
   
    write('Enter group number: ');
    readln(group_number);
   
    write('Ender number of students: ');
    readln(count_students);
   
    for i := 1 to count_students do
    begin
        write('Enter full name: ');
        readln(students[i].name);
       
        write('Enter time in seconds: ');
        readln(students[i].result);
    end;
end;
 
procedure output;
var
    i: integer;
    average: real;
begin
    clrscr;
    window(1, 1, 79, 25);
    textbackground(3);
    textcolor(0);
    clrscr;
   
    gotoxy(20,1);
    write('running results for 100m of group number ', group_number, '.');
   
    window(3, 3, 78, 23);
    textbackground(7);
    textcolor(0);
   
    clrscr;
    writetowindow(2, 1, '#');
    writetowindow(5, 1, 'Student full name');
    writetowindow(47, 1, 'Time in sec');
   
    for i := 1 to count_students do
    begin
        gotoxy(2, 2 + i);
        write(i, '.');
       
        gotoxy(5, 2 + i);
        write(students[i].name);
       
        gotoxy(50, 2 + i);
        write(students[i].result);
    end;
   
    gotoxy(20, 4 + count_students);
    textcolor(0 + 128);
   
    average := 0;
   
    for i := 1 to count_students do
    begin
        average := average + students[i].result;
    end;
 
    if (count_students <> 0) then average := average / count_students;
   
    writeln('average time of students: ', average:4:2, ' sec.');
   
    repeat
        window(24, 20, 56, 20);
        textbackground(9);
        clrscr;
        i := random(10) + 1;
        textcolor(i);
        write('  GOOD LUCK IN COMPETITIONS !!!');
        delay(10);
    until keypressed;
end;
 
procedure loadscrean;
var
  g, h, x, y, color: integer;
begin
    g := detect;
    initgraph(g, h, 'C:/TPWDB/BGI');
   
    color := 8;
   
    for  x := 2 to 10 do
    begin
        setcolor(color);
        setfillstyle(1, color);
        line(40 + 40 * x, 40, 80 + 40 * x, 40);
        line(80 + 40 * x, 40, 80 + 40 * x, 80);
        line(80 + 40 * x, 80, 40 + 40 * x, 80);
        line(40 + 40 * x, 80, 40 + 40 * x, 40);
        floodfill(40 + 1 + 40 * x, 40 + 1  + 40 * x, color);
       
        if color = 8 then color := 15 else color := 8;
    end;
   
    cleardevice;
    setbkcolor(7);
    setcolor(1);
    settextstyle(0,0,2);
    outtextxy(229, 30, 'DB Runners');
    setcolor(4);
    settextstyle(0, 0, 2);
    outtextxy(30, 450, 'Pavel Konin A.');
    settextstyle(0, 0, 2);
    outtextxy(370, 450, 'Group number 2');
 
    setcolor(15);
    setfillstyle(1, 15);
    line(100, 100, 500, 100);
    line(500, 100, 500, 199);
    line(500, 199, 100, 199);
    line(100, 199, 100, 100);
    floodfill(150, 150, 15);
   
    setcolor(8);
    setfillstyle(1, 8);
    line(100, 200, 120, 200);
    line(120, 200, 120, 400);
    line(120, 400, 100, 400);
    line(100, 400, 100, 200);
    floodfill(110, 210, 8);
   
    setcolor(8);
    setfillstyle(1, 8);
    line(480, 200, 500, 200);
    line(500, 200, 500, 400);
    line(500, 400, 480, 400);
    line(480, 400, 480, 200);
    floodfill(490, 210, 8);
    floodfill(490, 210, 8);
   
    settextstyle(0, 0, 5);
    outtextxy(150, 135, 'THE END!');
   
    readkey;
   
    closegraph;
end;
 
begin
    loadscrean;
 
    enterfilename;
 
    main:
 
    setwindowstyles;
 
    writetowindow(3, 1, 'i - input');
    writetowindow(34, 1, 'o - output');
    writetowindow(66, 1, 'esc - exit');
 
    repeat
        select_char := readkey;
   
        case select_char of
            #105: begin
                input;
               
                writetofile;
               
                clrscr;
                goto main;
            end;
            #111: begin
                readfromfile;
           
                output;
               
                clrscr;
                goto main;
            end;
        end;
    until select_char = #27;
 
    clrscr;
end.