fork download

var 
s:string;
a:array[1..26] of byte;
p:byte;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 
for i:=1 to length(s) do 
begin
 
p:=Pos('  ',s);
While p>0 do 
begin
delete(s,p,1);
p:=Pos('  ',s);
end;
 
p:=Pos(' ',s);
While p>0 do 
begin
p:=Pos(' ',s);
s[p]:='0';
a[Ord(s[p+1])-96]+=1;
end;
 
end;
 
end;
 
for i:=1 to 26 do 
begin
if(a[i]<>0) then writeln(Chr(i+96),'-',a[i]);
end;
end.

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(7,12) Warning: Variable "s" does not seem to be initialized
prog.pas(11,6) Error: Identifier not found "i"
prog.pas(11,5) Error: Ordinal expression expected
prog.pas(11,5) Error: Illegal counter variable
prog.pas(26,21) Warning: Variable "a" does not seem to be initialized
prog.pas(33,6) Error: Identifier not found "i"
prog.pas(33,5) Error: Ordinal expression expected
prog.pas(33,5) Error: Illegal counter variable
prog.pas(35,7) Error: Identifier not found "i"
prog.pas(35,31) Error: Identifier not found "i"
prog.pas(35,43) Error: Identifier not found "i"
prog.pas(35,45) Error: Illegal expression
prog.pas(37,4) Fatal: There were 10 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty