как исправить ошибку стека

[Chupa-pups]

В программе строковой функции возникает ошибка переполнения стека...Как исправить??

[andrewpalkin]

Сообщение от Chupa-pups

В программе строковой функции возникает ошибка переполнения стека...Как исправить??

Интересно , а тут все телепаты , могут решить проблему без кода

[kaljan775]

покажите место, где возникает, или программу, если она небольшая

[p51x]

Как исправить??

Не копировать больше символов, чем выделено памяти.

[kaljan775]

а, кстати, всегда интересовал вопрос - если забить оперативную память, данные же посыпятся на жесткий диск?

[Stilet]

данные же посыпятся на жесткий диск?

В файл подкачки, если конечно речь идет о Windows

[Chupa-pups]

вот код программы...=)
но она не работает правильно...сначала возникала ошибка стека...потом кое-как убрала, но правильной работы так и не добилась...две недели над ней страдаю...помогите, чем можете...(((
вот задание: создать функцию EXPAND(c:string; ch:char; n:integer):string , которая возвращает расширенную строку С, в которую между соседними символами вставлена литера ch в количестве n.
Пример: ввод с=ооо ch=а n=4
вывод с=оааааоаааао

function EXPAND(c:string; ch:char; n:integer):string
var
i:integer;
str:string;
ch_str:string;
begin
ch_str = "";
str = "";

for i:= 1 to n Do
ch_str:= ch_str + ch;


for i:= 1 to length(c) Do
begin
if i = length(c) then break;
str:= str+c[i]+ch_str;
end;

EXPAND:=str;
end;


begin

writeln(EXPAND("ооо",'а',4));

end.