Programa su įrašais

program Mokiniai;
const
    Cmax = 100;
    Cduom = 'Duom2.txt';
    Crez = 'Rez.txt';
type
    Tmokiniai = Record
                 VardPav : String[20];
                 Pazymiai : array[1..Cmax] of integer;
                 Vid : real;
               end;
    Masyvas = array[1..Cmax] of Tmokiniai;
var
    Mok : Masyvas;
    n,
    p : integer;
    v : real;
{------------------------------------------------------------------------------}
procedure Nuskaitymas(var Mok : Masyvas; var n, p : integer; var v : real);
var i, j : integer;
    FD : text;
begin
    Assign(FD, Cduom);
    Reset(FD);
    ReadLn(FD, n, p, v);
    for i := 1 to n do with Mok[i] do
    begin
       Read(FD, VardPav);
       for j := 1 to p do
           Read(FD, Pazymiai[j]);
       ReadLn(FD);
    end;
    Close(FD);
end;

procedure Vidurkis(var Mok : masyvas; n, p : integer);
var i, j, suma : integer;
begin
    for i := 1 to n do with Mok[i] do
    begin
       suma := 0;
       for j := 1 to p do
           suma := suma + Pazymiai[j];
       Vid := suma / p;
    end;
end;

function Pirmunai(Mok : masyvas; n, p : integer; v : real) : integer;
var i, j, suma : integer;
begin
    for i := 1 to n do with Mok[i] do
    begin
       if Vid > v
           then suma := suma + 1;
    end;
    Pirmunai := suma;
end;

procedure Irasymas(Mok : masyvas; n, p : integer; v : real);
var i, j : integer;
    FR : text;
begin
    Assign(FR, Crez);
    Rewrite(FR);
    for i := 1 to n do with Mok[i] do
       WriteLn(FR, VardPav, vid:4:2);
    WriteLn(FR, Pirmunai(Mok, n, p, v));
    Close(FR);
end;

{------------------------------------------------------------------------------}
begin
    Nuskaitymas(Mok, n, p, v);
    Vidurkis(Mok, n, p);
    Irasymas(Mok, n, p, v);
end.