[Сойер]

Дан текст, содержащий от 2 до 30 слов,в каждом из которых от 1 до 10 букв или арабских цифрЖмежду словами не менее одного пробела,за последним словом точка.Вывести все слова текста,отличные от последнего.При выводе удалять в каждом слове последнюю букву. Проблема в удалении последней буквы у меня ?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108

unit Uni097u89; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Input: TMemo;     Output: TMemo;     procedure InputChange(Sender: TObject);    { procedure FormCreate(Sender: TObject);}   private   public   end; var   Form1: TForm1; implementation {$R *.dfm}   procedure TForm1.InputChange(Sender: TObject); var   buf:string;   i,n,z,k: Integer;   S : AnsiString;   A : array [0..31] of AnsiString;   O, r : Boolean; begin   O := False;   n := 0;   A[n] := '';   Output.Lines.Clear();   S := Input.Lines.Text;   if (Input.Lines.Count > 0) and (S[Length(S)] = '.') and (Pos('.',S) = Length(S)) then   begin     //Заполняем массив словами     for i := 1 to Length(S) do     begin       if S[i] = ' ' then       begin         if (Length(A[n]) >= 1) and (Length(A[n]) <= 10)  then         begin           n := n + 1;           A[n] := '';         end         else          if A[n] <> '' then         begin           Output.Lines.Text := 'Слова должны содержать от 1 до 10 букв';           O := True;           Break;         end;       end       else        if S[i] = '.' then       begin         if (n < 1) or (n > 28) then         begin           O := True;           Output.Lines.Text := 'Колличество слов менее 2 или более 30';         end         else          if Length(A[n]) > 10 then         begin           Output.Lines.Text := 'Слова должны содержать от 1 до 10 букв';           O := True;           Break;         end;         Break;       end       else         try         begin           k := StrToInt(S[i]);         end         except         //if (S[i] <> '1') and   then           A[n] := A[n] + Copy(S,i,1);         end;     end;     //Выводим результат     if O = False then     begin       O := True;       for i := 1 to Length(A) do       begin        ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?        Output.Lines.Add(A[i]);        O := False;       end;       if O = True then       begin         Output.Lines.Text := 'Слов, отличных от последнего не найдено';     end;   end else   begin     Output.Lines.Text := 'Напишите 2 - 30 слов в поле ввода.';     Output.Lines.Add('Слова разделяются пробелом, в конце ставится точка.');   end; end;   {procedure TForm1.FormCreate(Sender: TObject); begin   Output.Lines.Text := 'Напишите 2 - 30 слов в поле ввода.';   Output.Lines.Add('Слова разделяются пробелом, в конце ставится точка.'); end; } end; end.

Admin: Пользуемся тегами!