program xxx;
const
n = 2;
Type
    Student = record
        firstName: string;
        secondName: string;
        thirdName: string;
        mark: integer;
        grant:integer;
    end;
    group = array [1..n] of Student;
procedure filling(var g:group);
   begin
   for var i := 1 to n do begin
   write('Имя: ');
   readln(g[i].firstName);
   write('Фамилия: ');
   readln(g[i].secondName);
   write('Отчество: ');
   readln(g[i].thirdName);
   write('Оценка: ');
   readln(g[i].mark);
   write('Стипендия: ');
   readln(g[i].grant);
   end;
   end;
    var
    F1:text;
    g:group;
    x:string;

    begin

    assign(F1, 'C:\PABCWork.NET\123.txt');
    rewrite(f1);
    filling(g);
    writeln(F1, 'Список отличников');
    for var i:=1 to n do begin
    if g[i].mark = 5 then
    writeln(F1, g[i].firstName:10,' ',g[i].secondName:10,' ',g[i].thirdName:10,' ',g[i].mark:3,' ',g[i].grant:5);
    end;
    close(f1);
    end.