зацикливание

[pandaaaaa]

Если последний элемент строки - заглавная буква, то происходит зацикливание. Посмотрите что не так.

uses crt;
const
m=80;
var
 a:string;
 i:integer;
begin
write('Vved stroku: ');
read(a);
writeln;
for i:=1 to m do
begin
 case a[i] of
 'A'..'Z':begin
               delete(a,i,1);
               i:=i-1;
          end;
 'À'..'ß':begin
               delete(a,i,1);
               i:=0;
          end;
 end;
end;
writeln('Izmen stroka: ',a);
end.

[Vanta11a]

Может потому что где-то там лежит символ конца строки?

for i:=1 to m do

попробуйте сменить на

for i:=1 to length(a) do

апд:
и не удалять из строки, а копировать в другую строковую переменную. Ну или сразу выводить.

[Luuzuk]

Начнем с того, что изменять переменную-счетчик в цикле For — глупость из глупостей

[pandaaaaa]

Сообщение от Luuzuk

Начнем с того, что изменять переменную-счетчик в цикле For — глупость из глупостей

тогда при повторении заглавных букв, он выполняет удаление через 1.



насчет length пробовал, не помогает =\

[Luuzuk]

Тогда он потом обращается ЗА границы массива символов "а" (строка есть массив симвалов, ага?)
Длина массива, ясен пень, уменьшится после удаления одного символа, а ОБЛАСТЬ ПАМЯТИ - нет.
На примере: а = "abcD"
символ "D" будет удален, i станет равна 3м. На следующей итерации она опять станет равна 4м и обратится к несуществующему 4му символу в "а". А там, ВНЕЗАПНО, осталась наша старая добрая "D". И так пока конец света не настанет
Access Violation вообще за такие вещи положен

[pandaaaaa]

пойду осмысливать вышесказанное) и зарядка на ноуте кончается....

[Step_UA]

А можно само задание?

[Luuzuk]

замените цикл for на цикл while (i <= length(a)) и будет вам счастье только переменную i не забудьте увеличивать при каждом прохождении цикла. И инициализируйте её перед использованием)

[pandaaaaa]

почему там D останется?

[Luuzuk]

Потому что длина массива символов изменится (число поменяется), участок памяти размером в один символ будет считаться освобожденным (его сможет использовать какая-нибудь другая программа), а само содержимое ячейки памяти никто менять не будет. А в массивах элементы располагаются в памяти строго по порядку, это вам не списки
"D" там останется необязательно: эту область памяти может успеть забрать себе и перезаписать какая-нибудь другая программа. Но в вашем случае других программ нет, один турбопаскаль. Так что "D" в памяти никто не потревожит