Разработать схему алгоритма и программу...

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

Извените, что я обращаюсь к вам еще раз. Просто я совсем не понимаю паскаль, а я вего навсего 1 курс. Помогите пожалуйста....
Задача:
Разработать схему алгоритма и программу, которая удаляет из текста все слова, которые имеют хотя бы одну латинскую букву.
Заранее огромное спасибо!

[GetMax]

Const
  Mn_b:Set of Char = ['a'..'z'];
  Mn_b1:Set of Char = ['A'..'Z'];
Var
  St,Buf:String;
  i,j,dl:Byte;
  Nashel:Boolean;
begin
  Readln(St);
  Buf:='';
  Nashel:=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
          Nashel:=True;
          Break
        End;
        If Nashel then Delete(St,Pos(Buf,St),Dl);
        Buf:='';
        Nashel:=False
      End;
    End;
  End;
  Writeln(St);
  Readln
End.

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

Спасибо огромное!!!!!!!!!!!!!!!! дай Бог Вам здоровья и всего-всего чего вы захотите!!!!!!