[scerco]

Я знаю, что это покажется безнадежным, но все-таки - что тут не так? Спасибо за внимание)

Код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Const
N=30;
var
i: integer;
S: string;
A: array [1..N] of Char;
    begin
  FillChar(A[1], SizeOf(A), 1);
  S:=Edit1.Text;
  move(S[2], A[1], Length(S)); // <стринг> в <массив>
     begin
    for i:=2 to N do while A[i] <> A[1]
  pos(A[i][Length(A[i])],A[i]) > 0) and (pos(A[i][Length(A[i])],A[i]) < Length(A[i]));
    label2.Caption:=A; // <массив> в <стринг>
           end;
 end;
end.

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