сформировать множество в которое входят только большие латинские буквы. исправить ошибку с else,

[quakenez]

Задача: сформировать множество в которое входят только большие латинские буквы

program Lab_9_12;
var s:string;
m, m1:set of char;
i:integer;
c:char;
begin
writeln('Введите строку: ');
readln(s);
m := [];
for i := 1 to length(s) do begin
if s[ i ] in ['a' .. 'z'] then begin
m := m + ([uppercase (s[ i ])]); 
write(m);
end;
else 
if s[ i ] in ['A' .. 'Z'] then
 m1 := m1 + [s[ i ]]; 
write(m1);
end;
end.

[type_Oleg]

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

end;
else

Перед else нельзя ; . Просто удалите
Может еще какие ошибки, не изучал подробно.

[quakenez]

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

Перед else нельзя ; . Просто удалите
Может еще какие ошибки, не изучал подробно.

ошибка сохранилась

[type_Oleg]

Вы бы хоть текст проги нормально написали, а то ведь никому неохота искать - к какому begin какой end относится.
И потом - вы что за переменные пытаетесь вывести , какого типа - set of char ?
Ну, ну ...

[digitalis]

А одной строкой нельзя это сделать?

 const  Letters: set of Char = ['A' .. 'F'];

[BDA]

digitalis, наверное, ожидаются только те буквы, которые встречаются во введенной строке (если судить по коду, а не текстовому условию задачи).

[evg_m]

пропущено

	
	

			
				 else if s[ i ] in ['A' .. 'Z'] then begin
			
		

и соответственно нужен end (на нужном месте)

[digitalis]

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

наверное, ожидаются только те буквы, которые встречаются во введенной строке (если судить по коду, а не текстовому условию задачи).

Вот то то и оно... "Говорим - Ленин, подразумеваем - партия"