Сумма непустых ячеек

read(f,n);//читаем количество
s:=0;//сумма
for i:=1 to n do
 begin
  readln(f,s);//читаем строки
  if s[1]='1' then//если первый символ '1'
   begin
    delete(s,2);//удаляем 2 символа(1 и пробел)
    val(s,a,c);//преобразуем остаток строки в число 
    s:=s+a;//суммируем
   end;
 end;

var f:text;
    s:string;
    n,i,a,c,sum:integer;
begin
assign(f,'input.txt'); //файл в папкес программой
reset(f);
read(f,n);//читаем количество
sum:=0;//сумма
for i:=1 to n do
 begin
  readln(f,s);//читаем строки
  if s[1]='1' then//если первый символ '1'
   begin
    delete(s,1,2);//удаляем 2 символа(1 и пробел)
    val(s,a,c);//преобразуем остаток строки в число
    sum:=sum+a;//суммируем
   end;
 end;
close(f);
assign(f,'output.txt');
rewrite(f);
writeln(f,sum);
close(f);    //смотрим в файле output ответ, как в примере 8
end.