плохо читает с файла, подскажите как чтобы со всей строки читала Опции

[maksimla]

задачу решите пожалуйста .
сделаете программу
если выстрелить N раз. если попадет премия 2 дополнительных патрона. в файле tiras.txt в первой строчке написана число N. В других N строчках вписан ноль (0) если непонял, а если попал (1). если выстрел был удачный в этой же строчке о дополнительных точности выстрела.
пример семь выстрелов удачных
5
0
1 0 0
1 1 0 0 0
0
1 0 1 1 1 0 0 0 0
напишите программу которая в фаил taikyk.txt написала скока выстрелов удачных.
в программе нельзя применять eoln и eof функций вместо их пишите циклы.

program tiras;
var n,
b,a, i,c,d,m,e,o: integer;
pradDuom,
rezult: text;
begin
assign (pradDuom, 'tiras.TXT');
assign (rezult, 'taikyk.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n);
for i := 1 to n do
begin
read (pradDuom, a);
writeln(a);
readln;
b := b + a;
end;
writeln (rezult, b);
close (pradDuom);
close (rezult)
end.

Сообщение отредактировано: maksimla - 17.02.2008 12:27

[Ozzя]

var
  f: text;
  s: string;
...
while not eof(f) do
  begin
     ...
     ReadLn(f,s);
     ...
  end;