Something

program sunkus;
type zmogus=record
          zm:string[8];
          sum:integer;
          end;
mas=array[1..100] of zmogus;
var a:mas;
f1:text;
i,x,suma:integer;
procedure suv1(var a:mas;var i:integer);
begin
reset(f1);
i:=0;
suma:=0;
while not EoF(f1) do begin
i:=i+1;
read(f1,a[i].zm);
while not EoLn(f1) do begin
read(f1,x);
if x<10 then suma:=suma+x;
end;
a[i].sum:=suma;
suma:=0;
readln;
end;
end;
begin
assign(f1,'1.txt');
suv1(a,i);
close(f1);
readln;
end.