Обработка данных символьного типа Char

[ruslanhits]

Доброго времени суток. Помогите пожалуйста с заданием.

Ввести символьный массив из 11-ти или меньшего числа элементов и построить другой массив, который имеет только большие латинские буквы с первого массива.

За ранее спасибо.

[Stilet]

Покажешь код ввода?

[ruslanhits]

Сообщение от Stilet

Покажешь код ввода?

Нет, заданий, которых надо сделать очень много, а это ещё не пробовал даже решать.

[Stilet]

Жаль... Очень жаль (

[Sciv]

Код, который получает большие латинские буквы из массива:

s1:='';
for i:=1 to length(s) do 
  if s[i] in ['A'..'Z'] then s1:=s1+s[i];

это если рассматривать строку как массив. Ввод сами напишете