задачка на файлы

[Настенька..Блонди]

Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

[Arigato]

Ваша задача уже обсуждалась на форуме тут: http://www.programmersforum.ru/showthread.php?t=38410

[capta1n]

program file1;
var
 f : text;
 count1,count2 : word;
 c : char;
begin
  assign (f,'input.txt');
  reset (f);
  count1:=0;
  count2:=0;
  while not EOF(f) do
  begin
    while not EOLN(f) do
    begin
      read (f,c);
      inc(count1)
    end;
    read (f,c);
    read (f,c);
    inc(count2)
  end;
  close(f);
  writeln ('Strok : ',count2,'; ','Simvolov : ',count1);
  readln
end.