Nevietoje panaudota assign,rewrite,close pirmi naudojami failui paruošti įrašymui, jei antrą kartą panaudosi sena informacija bus pašalinta, close naudojama uždaryti jei uždarai nebeįrašysi, todėl cikle nenaudojama.
program Bevardė49;
var i, n, j : integer;
mok, vid : text;
sum, paz : real;
begin
Assign (mok, 'Mokiniai.txt');
Reset (mok);
ReadLn (mok, n);
Assign(vid, 'Vidurkiai.txt');
Rewrite (vid);
for i := 1 to n do
begin
sum := 0;
for j := 1 to 5 do
begin
Read (mok, paz);
sum := sum + paz;
end;
sum := sum / 5;
WriteLn (vid, i:6,' Vidurkis', sum:6:2);
end;
close (mok);
close (vid);
Readln;
end.