затруднение с модулями

[samoe]

Затрудняюсь модули с попрограммами к задачке написать помогите кто может!
Вот текст задачи" В заданной строке найти первое слово, содержащее не менее заданного числа гласных".
Вот задака как решил:

PHP код:

uses crt;
const gl=['A','a','E','e','I','i','O','o','U','u','Y','y','];
var s,s1:string;
    b,f,i,k:byte;
begin
clrscr;
writeln('Введите строку, пробел разделитель слов:');
readln(s);
write('Сколько гласных букв в слове? b=');
readln(b);
s:=s+' ';
while pos('  ',s)>0 do
delete(s,pos('  ',s),1);
f:=0;
while pos(' ',s)>0 do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  k:=0;
  for i:=1 to length(s1) do
  if s1[i] in gl then k:=k+1;
  if k>=b then
   begin
    f:=1;
    write('Первое слово, содержащее не менее ',b,' гласных букв - ',s1);
    break;
   end;
  delete(s,1,pos(' ',s));
 end;
if f=0 then write('Слов, содержащих не менее ',b,' гласных букв нет!');
readln
end. 


(задача на паскале)

[Sazary]

Как-нибудь так, например:

unit Unit1; 

interface
procedure doit(s : string; b : byte);

implementation
const gl=['A','a','E','e','I','i','O','o','U','u','Y','y'];

procedure doit(s : string; b : byte);
var
s1:string;
f,i,k:byte;
begin
s:=s+' ';
while pos('  ',s)>0 do
delete(s,pos('  ',s),1);
f:=0;
while pos(' ',s)>0 do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  k:=0;
  for i:=1 to length(s1) do
  if s1[i] in gl then k:=k+1;
  if k>=b then
   begin
    f:=1;
    write('Первое слово, содержащее не менее ',b,' гласных букв - ',s1);
    break;
   end;
  delete(s,1,pos(' ',s));
 end;
if f=0 then write('Слов, содержащих не менее ',b,' гласных букв нет!');
end;

end.

Как использовать, надеюсь, понимаете.

[samoe]

да, спасибо) очень помогли.