дописать все гласные латинские буквы из строки S1 в конец S2, Функции...вроде всё так, но что-то не то Опции

[Valkirie]

Воть... решаю задачку и не могу понять где у меня ошибка... люди умные, гляньте плииз ;)

Условие задачи:
Разработать функцию Add(const S1,S2:string):string, дописывающую все гласные латинские буквы из строки S1 в конец S2 и выдающей получившуюся строку в качестве результата. С помощью данной функции в каждую строку из введенного набора дописать все гласные латинские буквы из предыдущей строки. Гласными считаются следующие буквы: aeiouyAEIOUY.

Вход
В первой строке входа дано количество строк N. Затем следуют N строк, по одной в каждой строке.
Выход
На выход напечатать строки результата, по одной в каждой строке.

Пример
Вход:
3
abc
abd
as

Выход:
abc
abda
asa

Вот мой код...

Код

 function Add(S1, S2:string):string;
var i:integer;
begin
for i:=Length(S1) downto 1 do
begin
if (S1[i]='A') or (S1[i]='E') or (S1[i]='I') or (S1[i]='U') or
(S1[i]='O') or (S1[i]='Y') or (S1[i]='a') or (S1[i]='e') or
(S1[i]='u') or (S1[i]='o') or (S1[i]='y') then Insert(S1[i],S2,Length(S2)+1);
end;
Result:=S2;
end;

 var
 S1,S2:string;
 N,i:integer;
 Mas: array [1..100] of string;
 begin
 Write('');
 ReadLn(N);
 for i:=1 to N do
 begin
 Write('');
 ReadLn(Mas[i]);
 end;
 for i:=1 to N-1 do
 begin
 S1:=Mas[i];
 S2:=Mas[i+1];
 S2:=Add(S1,S2);
 WriteLn(S2);
 ReadLn;
 end;
end.

Что-то у меня на выходе не то получается... ;(( Help !

Сообщение отредактировано: мисс_граффити - 13.06.2007 14:30