fork download

copy

var 
s:string[201];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
insert(s,' ',1); 
for i:=1 to length(s) do 
begin
 
p:=Pos('  ',s);
While p>0 do 
begin
p:=Pos('  ',s);
delete(s,p,1);
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(10,13) Error: Variable identifier expected
prog.pas(26,21) Warning: Variable "a" does not seem to be initialized
prog.pas(37,4) Fatal: There were 1 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