Процедуры

[AlDonea]

program masivbuk;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
qq: set of char;
f1,f2: text;
s: string;
n,i,k,g,m: integer;



begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('BBeDuTe BXODHOu qpAuJI:');
readln(s);
n:=length(s);
qq:=['a','e','u','y','o','i'];
assign(f1,'X:\out1.txt');
assign(f2,'X:\out2.txt');
rewrite(f1);
rewrite(f2);
for i:= 1 to n do
begin
if s[i]<>' ' then
begin
k:=k+1;
if s[i] in qq then g:=g+1;
end
else
begin
if k>0 then
if (k-g)<g then
begin
m:=i-k;
while m<=i do
begin
write(f1,s[m]);
m:=m+1;
end;
write(f1,k:4);
write(f1,g:4);
write(f1,(k-g):4);
writeln(f1);
end
else
begin
m:=i-k;
while m<=i do
begin
write(f2,s[m]);
m:=m+1;
end;
write(f2,k:4);
write(f2,g:4);
write(f2,(k-g):4);
writeln(f2);
end;
k:=0; g:=0;
end;
end;
close(f1);
close(f2);
end.


Помогите плиз записать прогу с процедурами.....срочно!