pascal問題 (點樣記錄一d字出現ge次數)

Var i,total,j:integer;
s:string[30];
a:array[1..30] of char;
table:array[1..200] of string;
count:array[1..200] of integer;
c:char;
found:boolean;
f:text;
begin
assign(f,'count.txt');
reset(f);
total:=0;
j:=0;
while not eof(f) do
repeat
s:=' ';
repeat
j:=j+1;
read(f,c);
a[j]:=c;
Until c<'A';
for i:=1 to j-1 do
s[i]:=a[i];
s:=s+' ';
found:=false;
for i:=1 to total do
If table[i]=s then
begin
count[i]:=count[i]+1;
found:=true;
end;
If (not found) and (s<>' ') then
begin
table[total+1]:=s;
count[total+1]:=1;
total:=total+1;
end;
for i:=1 to j do
a[i]:=' ';
j:=0;
Until eoln(f);
for i:= 1 to total do
writeln(table[i],' ',count[i]);
writeln('Total no. of distinct word:',total);
close(f);
end.