Простейшая задача на String, и маааленький вопрос по n! Опции

[Art87]

Задача такая: Слова в исходной строке разделены пробелами. Сформировать строку в которой будут все слова из первой строки начинающиеся на гласную букву.

program abc;
const glasn=['а','е','и','о','у','ы','э','ю','я'];
Var
S, S1: string;
a, n, l: byte;
i: char; {Первая буква слова}
begin
writeln ('Ввод текста: '); readln(S);
S:= S + '_';
a:=0; {Количество слов в тексте начинающихся с гласной буквы}
n:= pos('_', s);
while n<>0 do begin
l:=length(S);
i:= copy(S,1,l);
If i=glasn then a:= a + 1;
insert(a, S1, n); writeln(S1); readln;
end;
end;

Выдает ошибку после

i:= copy(S,1,l);

- Несоответствие типов.
Ну и в правильности остальной программы я сомневаюсь. Посмотрите пожалуйста.

И еще хотел спросить:
Я написал прогу для вычисления n!

Var f, m: longint;
function fact (n: integer): longint;
begin
if n=0 then fact:= 1
else fact:= fact (n - 1)*n;
end;
begin
writeln('Ввод m: ');
readln(m);
f:=fact(m);
writeln('m= ', f); readln;
end.

Как сделать чтобы она вычисляла факториал (n>100)?

Сообщение отредактировано: volvo - 5.11.2006 21:35