помогите доделать задачку

[innaa639]

Ввести с клавиатуры стринговую константу, делая маленькие буквы большими. выделить 16-ти разрядные константы, перемножить их. представить выделеные числа и их произведения у 10-тичной системе счисления.

Вот ниже у меня есть начало задачи, тоесть маленькие буквы переводит в большие, помогите доделать

uses crt;
var s:string;
i:integer;
begin
clrscr;
writeln('vvedite stroky:');
readln(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
s[i]:=chr(ord(s[i])-32);
write(s);
readln;
end.