program exercise (input, output);

{You supply the declarations and the Encode procedure.}

procedure GetValues ( {You supply the parameter declarations.} );
var
    ch: char;
    i: integer;
begin
    writeln ('Code array:  ');
    for ch := 'a' to 'z' do begin
	read (codeArray [ch]);
    end;
    readln;
    word := '    ';	{quick way to blank out word, allowed in Unix Pascal}
    i := 0;
    write ('Word to encode:  ');
    while not eoln do begin
	i := i + 1;
	read (ch);
	if i <= WORDSIZE then begin
	    word [i] := ch;
	end;
    end;
    readln;
end;

begin
    GetValues (codeArray, word);
    Encode (codeArray, word);
    writeln ('Coded word = ', word);
end.