Помогите записать в паскале !

Только так. Без учёта регистра. Поэтому, сначала будут выводиться заглавные буквы, а потом строчные.

var
s,glas:string;
ar : array[1..21] of char;
i,j:integer;
ch :char;
begin
s := 'Привет мир. Это я. Ура! ';

ar[1] := 'а';
ar[2] := 'е';
ar[3] := 'ё';
ar[4] := 'и';
ar[5] := 'о';
ar[6] := 'у';
ar[7] := 'ы';
ar[8] := 'э';
ar[9] := 'ю';
ar[10] := 'я';
ar[11] := 'А';
ar[12] := 'Е';
ar[13] := 'Ё';
ar[14] := 'И';
ar[15] := 'О';
ar[16] := 'У';
ar[17] := 'Ы';
ar[18] := 'Э';
ar[19] := 'Ю';
ar[20] := 'Я';

for i := 1 to length(s) do begin
for j := 1 to 21 do begin
if(s[i] = ar[j]) or (s[i] = ar[j]) then glas := glas + s[i];
end;
end;

writeln(s);
writeln(glas);

for i := 2 to length(glas) do begin
for j := length(glas) downto i do begin
if(glas[j-1] > glas[j]) then begin
ch := glas[j-1];
glas[j-1] := glas[j];
glas[j] := ch;
end;
end;
end;

writeln(glas);

end.

Решение для линуксоидов:
$ echo 'Помогите записать в паскАле! ' | sed 's/\(.\)/\1\n/g' | grep [АЕИОУЭЮЯаеиоуэюя] | LC_ALL=C sort -u | (while read c; do printf "%s %d\n" $c "'$c"; done)
А 1040
а 1072
е 1077
и 1080
о 1086

Кодировка UTF-8.