var letters:Array['a'..'z'] of Integer;
    tmpWord:String;

function checkUsedLetters:Boolean;
var i:char;
    r:boolean;
begin
  r := true;
  for i := 'a' to 'z' do
    r := r and (letters[i] = 0);
  result := r;
end;

procedure processWord(w:String);
var i:integer;
begin
  for i := 1 to Length(w) do
  begin
    letters[w[i]] := letters[w[i]] + 1;
    writeln('Буква ', w[i], ' использована ', letters[w[i]], ' раз');
  end;
end;

begin
  while checkUsedLetters do
  begin
    writeln('Введите слово: ');
    readln(tmpWord);
    tmpWord := LowerCase(tmpWord);
    processWord(tmpWord);
  end;
end.