mano variantas: program U2;
const CDuom = 'U2.txt';
CRez = 'U2rez.txt';
CMax = 50;
type Eil = string[10];
dievas = record
vardas : Eil;
taskai : integer; //tasku isviso
klyg : integer; //kiek lyginiu skaicius
end;
TMas = array[1..CMax] of dievas;
var A,B,C : TMas;
n,
k : integer;
nr : integer;
procedure Skaityti;
var i,j,sk : integer;
F : text;
begin
Assign(F,CDuom); Reset(F);
ReadLn(F,n,k);
for i := 1 to n do
begin
A[i].taskai := 0; A[i].klyg := 0;
Read(F,A[i].vardas);