Технический форум - Помогите с Паскалем

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите с Паскалем (http://www.tehnari.ru/f43/t52373/)

Помогите с Паскалем

Помогите с задачкой, а то не шарю...
дана строка. удалить из неё все символы, не являющиеся заглавными буквами латинского алфавита.
заранее спасибо! буду Благодарен, если поможите

Цитата:

Сообщение от Владиславик (Сообщение 528350)

Без проблем:

Код:

VAR

 S:String;

 i:Byte;

BEGIN

 WriteLn('Enter the string:');

 ReadLn(S);

 i:=0;

 Repeat

  Inc(i);

  If (Ord(S[i])<65) or (Ord(S[i])>90) then

   begin

    Delete(S,i,1);

    Dec(i);

   end;

 Until i=Length(S);

 WriteLn(S);

 ReadLn;

END.