Требуется помощь в решении 2 задач на перечисляемые типы данных и на множества(Паска)

[Luxury3001]

Ребята, ПОЖАЛУЙСТА, помогите решить две несложные задачи!!!!!!!!!!
ОЧЕНЬ НУЖНО!!!!
1)Задача на перечисляемые типы данных.
Есть тип ИМЯ, есть массив ПОЛ размерностью ИМЯ of M (male) и F(female). И еще один массив РОСТ размерностью ИМЯ of 140-200. По массивам ПОЛ и РОСТ определить имя самого рослого мужчины. (Массивы тоже распечатать).
2)Задача на множества.Дан текст из латинских букв, за которым следует точка. Напечатать(вывести на экран) первые вхождения букв в текст, сохрания их исходный порядок. (Текст вводится с клавиатуры).

ЗАРАНЕЕ БОЛЬШОЕ СПАСИБО!

[Medved]

#1
[syntax='Delphi']
Program lalala;
type name=string;
names=array[1..100] of name;
pol=array[1..100] of ('M','F'); {Я не помню, как именно это описывается}
rost=array[1..100] of 140..200;
var i,q,max:integer;
maxname:name;
n:names;
p ol;
r:rost;
begin
readln(q);
for i:=1 to q do
read(n[q],p[q],r[q]);
max:=0;
maxname:='';
for i:=1 to q do
if pol='M' then if rost>max then begin
max:=rost; maxname:=n; end;
writeln(maxname);
end. {напиши сам для вывода всего остального}
[/syntax]
#2
[syntax='Delphi']
program lalala;
var s:char;
letters:set of char;
begin
s:=']';
letters:=['a'..'z']+['A'..'Z'];
while s<>'.' do
if s in letters then begin write(s);letters:=letters-[s]; end;
end.
[/syntax]

А подобные темы помещай в решите мне задачку (чит.здесь)

[MOTOCoder]

Ну вообще-то по моему это описывается так:
[syntax='Delphi']
Type
TPol=(M,F);
TName=(Ivanov,Petrov, Sidorov);
var
Pol:array[TName] of TPol;
[/syntax]

[Medved]

Но т.к. это не переменные/константы, то кавычки, по ходу, тоже надо ставить...

[Serge_Bliznykov]

Medved, нет, в том то и фишка, что это как раз переменные! ;-))
MOTOCoder написал полностью компилируемый код, без ошибок. никаких кавычек не надо (да с ними как раз и будут ошибки...)

[Medved]

нет, в том то и фишка, что это как раз переменные! ;-))

Спасибо, в будущем учту

[Luxury3001]

Medved, Извини, но у меня не запускаются обе задачи!!! В первой выдаёт ошибку в строке read(n[q],p[q],r[q]);. А во второй вообще зависает экран и ничего не возможно нажать!!!

[Medved]

#2 Я забыл про строку =)