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

[футбик]

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

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

[футбик]

помогите пожалуйста еще с файлами, есть проблемка. Нужно разделить все элементы вектора типизированного файла на максимальный элемент, и поместить результат в типиз. файл.

var
newf: file of real;
oldf: file of integer;
  a:array[1..5,1..8] of integer;
  b:array[1..5,1..8] of real;
  i,j:integer;
  amax:real;
begin
assign(oldf,'C:\PABCWork\p2.txt');
reset(oldf);
assign(newf,'C:\PABCWork\p3.txt');
rewrite(newf);
while not eof(oldf) do
  begin
for i:=1 to 5 do
  for j:=1 to 8 do
    begin
    read(oldf,a[i,j]);
  for i:=1 to 5 do  //перебираю строки
      begin
      amax := a[i,1];   //1й элемент в каждой строке максимальный
      for j:=2 to 8 do   //перебираю столбцы, с 2го
         begin
         if a[i,j]>amax then amax:=a[i,j];//сравниваю 1й элемент строки с остальными и присваиваю значение amax = максимальное
         end;
         for j:=1 to 8 do
         begin
         if amax<>0 then b[i,j]:=(a[i,j]/amax); //делю каждый элемент строки на макс. значение этой строки
         end;
      end;
    end;
  end;
for i:=1 to 5 do
  begin
  for j:=1 to 8 do
  write(newf,b[i,j]);
  end;
close(newf);
end.

работает не правильно:
1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
читаю результат так:

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

эта прога работает, проверял. Спасибо