Написали программу.....

[Чумак Татьяна]

Написали программу, но я не знаю как она работает. Уважаемые программисты, обьесните как она работает. Пожалуйста!
Вот код программы:

Program lab7;
Const
  Mn_b:Set of Char = ['a'..'z'];
  Mn_b1:Set of Char = ['A'..'Z'];
Var
  St,Buf:String;
  i,j,dl:Byte;
  Nashla:Boolean;
begin
  Readln(St);
  Buf:='';
  Nashla:=False;
  For i:=1 to Length(St) do
  Begin
    If (St[i] <> ' ') and (i <= Length(St)) then Buf:=Buf+St[i];
    If (St[i] = ' ') or (i = Length(St)) then
    Begin
      If Buf<>'' then
      Begin
        dl:=Length(Buf);
        For j:=1 to Length(Buf) do
        If (Buf[j] in Mn_b) or (Buf[j] in Mn_b1) then
        Begin
          Nashla:=True;
          Break
        End;
        If Nashla then Delete(St,Pos(Buf,St),Dl);
        Buf:='';
        Nashla:=False
      End;
    End;
  End;
  Writeln(St);
  Readln
End.

Зарание большое спасибо!

[Nikita++]

Вы знаете что она должна делать, но не знаете как? Или вообще ничего не знаете?

[GetMax]

Написали программу, но я не знаю как она работает.

Стыдно должно быть!У вас задание, как щас помню, удалить из строки слова, если в них есть латинские буквы. Читаем внимательно комментарии + откройте вы уже учебник по Паскалю

Const
  Mn_b:Set of Char = ['a'..'z'];
  Mn_b1:Set of Char = ['A'..'Z'];
Var
  St,Buf:String;//St - исходная стрка, buf - пременная для хранения отдельных слов
  i,j,dl:Byte;
  Nashla:Boolean;
begin
  Readln(St);//вводим строку
  Buf:='';  // Вспомогательная строку делаем пустой
  Nashla:=False; // изначально мы ничего не нашли
  For i:=1 to Length(St) do //пробегаем строку посимвольно
  Begin
    If (St[i] <> ' ') and (i <= Length(St)) then Buf:=Buf+St[i]; // Если очередной символ не пробел и не последний, то это часть одного слова
    If (St[i] = ' ') or (i = Length(St)) then // Нашли пробел или дошли до последнего символа - получившуюся строку считаем словом
    Begin
      If Buf<>'' then  // проверяем не пустая ли у нас строка
      Begin
        dl:=Length(Buf); // определяем длину получившегося слова
        For j:=1 to Length(Buf) do // посимвольно проверяем ето слово
        If (Buf[j] in Mn_b) or (Buf[j] in Mn_b1) then // Проверяем есть ли в слове латинские буквы
        Begin
          Nashla:=True; // Да, есть такие буквы
          Break   // Выходим из цикла. Дальше проверять не имеет смысла
        End;
        If Nashla then Delete(St,Pos(Buf,St),Dl); // Если были найдены буквы удаляем  слово из строки
        Buf:=''; // Очищаеам вспомогательную строку
        Nashla:=False // Готовим переменную к следующему слову
      End;
    End;
  End;
  Writeln(St); // Выводим результат
  Readln
End;

[Чумак Татьяна]

Я знаю, что она должна делать. Она должна удалять из текста все слова, которые имеют хотя бы одну латинскую букву. Но я не знаю,как она работает. Я стала в универе защищать ее, а у меня спросили, как она работает и какая у нее идея. Подскажите пожалуйста, чтобы я смогла ее защитить.

Ой простите, мне очень стыдно. Но у меня на носу модуль и я не знаю за что хвататься. Вот по-этому обратилась к вам, что бы вы хобя бы с чем-то помогли.
Спасибо за помощь!!

[Nikita++]

Ну тут уже все написали...))

Только у меня она почему-то не совсем правильно работает

[Чумак Татьяна]

а почему? У меня она работает, только почему-то не выдает результат. А у вас?

[Nikita++]

А вы пробовали вводить не латинские символы? Может просто пустую строку выдает.

[Чумак Татьяна]

Я пробовала вводить латинское слово sabotage. Но она все
равно выдает пустую строку.
Я не знаю, что делать!

[Obey-Kun]

Ну так sabotage это не латинское слово, а английское

[Чумак Татьяна]

Ну может быть вы подскажете, какое слово латинское?