Помогите исправить программу)))

Program Stroki;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;
const mn: set of char= ['a','e','i','o','u','y'];
type Tmas=array[1..50]of string;

procedure del(var stx:string);
var ix,k:integer; q:string;
begin
for ix:=1 to length(stx) do
if stx[1]=' ' then delete(stx,1,1);
k:=length(stx);
end;
procedure Prob ( var St:string);
begin
while Pos(' ',St)>0 do
delete(St,Pos(' ',St),1);
end;

procedure Videlenie (var St:string; var msl:Tmas; out m:byte);
var
i,n,k:Byte;
Slovo:string;
begin
n:=length(St);
if St[n]<>' ' then St:=St+' ';
Slovo:='';
k:=0;
for i:=1 to Length(St) do
if St[i]<>' ' then
Slovo:=Slovo+St[i] else
begin
k:=k+1;
msl[k]:=Slovo;
Slovo:='';
end;
m:=k;
Writeln('mass');
for i:=1 to k do
Write(msl[i],' ':2);
Writeln;
end;

procedure OBRmass (var msl:Tmas; const o:byte);
var i,k,s,j:byte;
Slovo:string;
mas:array [1..50]of byte;
begin
for i:=1 to o do
begin

Slovo:='';
Slovo:=Slovo+msl[i];
s:=0;

if Slovo[i]=mn then
msl[i]:=slovo else msl[i]:='';

end;
Slovo:='';
for i:=1 to (o-1) do
for j:=1 to (o-i) do
if length(msl[j])>length(msl[j+1]) then
begin
Slovo:=msl[j];
msl[j]:=msl[j+1];
msl[j+1]:=Slovo;

end;

Writeln('ootsortirovanniy mass');
for i:=1 to o do
write (msl[i],' ':1);
Writeln;
Writeln;

end;

var
St,Slovo:string;
o:byte;
msl:Tmas;

begin
writeln('vv stroku');
readln(St);
writeln;
writeln('ishodnaya stroka');
Writeln(St);
writeln;
del(St);
Prob(St);
Writeln('preobrazovannaya str');
writeln(St);
Writeln;
Videlenie(St,msl,o);
Writeln;
OBRmass (msl,o);

readln;
end.