Не выводит все совпадения символов.

[gs.Soroka]

Задание по частотному словарю.
Чтение из текстового файла.Но выводит только точки и запятые, буквы не считает. Помогите советом. Друг сказал у него всё выводит, может из-за ОС или ПО?Стоит Rad studio 2010 на Windows 7.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a: array [1..256] of integer;
  s:string;
  i,j:integer;
  t:textfile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 256 do
a[i]:=0;

Assignfile(t,'1.txt');
reset(t);

 while not eof(t) do
  begin
  readln(t,s);
   for i:=1 to length(s) do
    begin
    j:=ord(s[i]);
    a[j]:=a[j]+1;
    end;
  end;
s:='';
 j:=1;
  for i:=1 to 256 do
   begin
   if a[i]>0 then
    begin
    s:=s+inttostr(j)+') '+chr(i)+' = '+inttostr(a[i])+#9;
    inc(j);
 //   memo1.Lines.Add(s);
   //
   end;  end;
  memo1.Text:=s;
//label1.caption:=s;
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.