обработка текста из внешнего текстового файла, определить количество строк, баланс Опции

[футбик]

полное описание: Выполнить обработку текста из внешнего текстового файла, созданного в редакторе . Результаты обработки поместить во внешний файл. Определить количество строк в исходном тексте. Проверить имеется ли в каждой строке баланс.
количество строк определил так:

var oldf,newf:text;
     oldn,newn:string;
     s:integer;
begin
writeln('Введите имя файла');
readln(oldn);
writeln('Введите новое имя');
readln(newn);
assign(oldf,oldn);
assign(newf,newn);
reset(oldf);      
rewrite(newf);    
s:=1;              {это смущает}
   while not eof(oldf) do
   begin
   readln(oldf);
       begin
       s:=s+1;
       end;
    end;
    writeln(newf,'строк: ',s);
   close(newf)
end.

кто знает, подскажите пожалуйста, что означает: проверить имеется ли в каждой строке баланс.

Сообщение отредактировано: футбик - 22.10.2008 17:17

[футбик]

еще маленький вопросик по файлам, делаю программу, она преобразует текстовый файл в типизированный, элементы которого - вектора из 8 –и чисел типа Integer. Текстовый файл содержит 5 строк по 8 чисел в строке, числа выбирается из интервала [ 0,100] . Не получается преобразовать текст. файл в типиз.
код

var f:text;
newf: file of integer;
 el:string;
 a:array[1..5,1..8] of integer;
     i,j:integer;
begin
assign(f,'C:\PABCWork\p1.txt');
reset(f);      {Откpыть стаpый файл по чтению}
assign(newf,'C:\PABCWork\p2.txt');
rewrite(newf);    {Откpыть новый файл по записи}
   while not eof(f) do
   begin
   readln(f,el);
   for i:=1 to 5 do  {просто хочу прочитать текстовый и перезаписать в типиз.файл}
     begin
     for j:=1 to 8 do
     write(newf,a[i,j]);   { на выходе типиз. файл пустой }
     writeln;
     end;
   end;
close(newf)
end.

исходный, текстовый файл сделал так:

var f:text;
     a:array[1..5,1..8] of integer;
     i,j:integer;
begin
assign(f,'C:\PABCWork\p1.txt');      {Откpыть стаpый файл по чтению}
rewrite(f);    {Откpыть новый файл по записи}
for i:=1 to 5 do
for j:=1 to 8 do a[i,j]:=random(100);
for i:=1 to 5 do
    begin
    for j:=1 to 8 do
    write(f,a[i,j]);
    writeln;
    end;
close(f);
end.

заранее благодарен