Виделят только большие буквы(Паскаль)

[Anonymous_1]

Пример:
input
-----------------------------------------------------------------------------
My name Is Anonymous
-----------------------------------------------------------------------------
Output
-----------------------------------------------------------------------------
MIA
-----------------------------------------------------------------------------
Сделайте за меня!

[Serge_Bliznykov]

для английского:

var s, sRes : string;
  i:integer;
begin
  WriteLn('Input string: ');
  ReadLn(s);
  sRes := '';
  for i:=1 to Length(s) do
    if s[i] in ['A'..'Z'] then sRes := sRes + s[i];
  WriteLn(sRes)
end.