Programmation/Manipulation de chaînes

program p (data,output);

   var a,b : integer; data : text;
   begin
   reset(data);b := 0; {on met b a zero}
   while not eof(data) do
   begin readln(data,a);
   if a > 42 then b := b+1 end;
   writeln(a)
   end.