сортировка списка и количество букв

uses crt,printer;
type
str=string[30];
var pr:array[1..50]of str;
k,i,j:byte;
temp:str;
begin clrscr;
write('Size of List: ');
readln(k);
for i:=1 to k do
begin
    writeln('Subj. #',i,' :');
    readln(pr[i]);
end;
for i:=1 to k-1 do
for j:=1 to k-i do
if pr[j]>pr[j+1] then
begin
    temp:=pr[j];
    pr[j]:=pr[j+1];
    pr[j+1]:=temp;
end;
for i:=1 to k do
begin
    writeln(pr[i]);
    writeln(lst,pr[i]);
end;
readkey;
end.

program EvgeniiSp;
uses Crt;
var
 st: string;
//------------------------
 procedure InputData;
  begin
   writeln('Введите строку текста:');
   readln(st);
  end;
//------------------------
 procedure AnalysisData;
  var
   gl: char;
   i,j,count: byte;
   chars,count_char: set of char;
  begin
   count:=0;
   count_char:=[];
   chars:=['у','е','ы','а','о','э','я','и','ё'];
   for i:=1 to length(st) do
     if st[i] in chars then Inc(count);
   writeln('Количество гласных в тексте - ',count);
   writeln('гласная - количество');
   for i:=1 to length(st) do
     if (st[i] in chars) and not(st[i] in count_char)
      then
       begin
        count:=0;
        gl:=st[i];
        for j:=1 to length(st) do
         if st[j] = gl then Inc(count);
        writeln('    ',gl,'   -   ',count);
        count_char:=count_char+[gl];
       end;
  end;
 
Begin
 ClrScr;
 InputData;
 AnalysisData;
end.