Строки в текстовом файле

[GreBer]

Привет!
Помогите пожалуйста!
Мне нужно написать программу считающая кол-во символов в текстовом файле и записывающая результат в другой текстовый файл. Как считать кол-во символов в строке я знаю. А вот как сделать так что-бы он считал символы не в одной строке, а во всех строках текстового файла.

Код программы:

program test;
Uses CRT;
Var
 s,s1:string;
 c:char;
 i,j:integer;
 t,f:text;
 M:Array[32..255] of integer;
Begin
clrscr;
Assign(t,'text.txt');
Assign(f,'final.txt');
reset(t);
rewrite(f);
readln(t,s);
 for j:=1 to length(s) do
  begin
  s1:=copy(s,j,1);
  c:=s1[1];
  i:=ord(c);
  M[i]:=M[i]+1;
  end;
For i:=32 to 255 do
 Writeln(f,M[i]);
End

[spl1nter]

Удалите плз.

[ManU]

program test;
Uses CRT;
Var
 c:char;
 i:integer;
 t,f:text;
Begin
clrscr;
Assign(t,'text.txt');
Assign(f,'final.txt');
reset(t);
rewrite(f);
i:=0;
repeat
read(t,c);
inc(i);
until eof(t);
write(f,i);
End.

По идее должно работать