Программа выдает ошибку при работе

[evg_m]

грузится процессор

нет выхода из цикла while length(tmp)>0 -> нет изменения длины tmp ->
delete(tmp,1,p); -> здесь видимо р=0 ->
p:=pos(tmp,''); // не нашли ничего в пустой строке -> p=0

и ежесекундно пожирается память

inc(setarr);// увеличиваем длину массива на 1
SetLength(words,setarr);

в бесконечном цикле

[T-dayne]

evg_m
Если разобрать построчо:
Я ввожу текст "привет!" он разделяется на 2 элемента это "Привет" и "!"
считаются символы до пробела: p=6.
Копируем в массив, и удалям "Привет", остается " !" , вот здесь и ошибка-пробел идет первым, p=0 --> вечный цикл.
Попробуем обойти это, в место где происходит удаление скопированного текста дописываю

delete(tmp,1,p+1);

, для удаления первого пробела, при этом, выход из цикла происходит, но вылазиет другая ошибка, в строчке

modif:=modif+translate(words[i]);

где там ошибка?

[evg_m]

может быть так
if tmp[1]=' ' then
Delete(tmp,1,1)
else
//
;

[T-dayne]

while length(tmp)<>0 do
begin
inc(setarr);
p:=pos(tmp,'');
SetLength(words,setarr);
words[i]:=copy(tmp,1,p);
if tmp[1]=' ' then
delete(tmp,1,1)
else
delete(tmp,1,p);
end;

-не рабоает, опять бесконечный цикл.

[evg_m]

SetLength(words,setarr); //последний  индекс в массиве setarr-1

for i:=0 to setarr do
begin
modif:=modif+translate(words[i]);
end;

[Stilet]

сомневаюсь что это много сообщит Вам, но все же

А зря. В ошибке написан адрес, на котором вылет произошел. Войдя в отладчик CPU и добравшись до этого адреса можно узнать в какой конкретно части кода программа такое выкинула.