unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants,

Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure ButtonlClick(Sender: TObject);

private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1;

implementation

//($R *.dfm}

const

NT = 5;

var

team: array[1..NT] of string[10] =

('Çåíèò','Äèíàìî','Ðîòîð','Ñïàðòàê','ÑÊÀ');

procedure TForml.ButtonlClick(Sender: TObject);

var

st:string; // ñïèñîê êîìàíä

i:integer; // èíäåêñ, íîìåð ýëåìåíòà ìàññèâà

begin

    // ôîðìèðîâàíèå ñïèñêà äëÿ îòîáðàæåíèÿ â ôîðìå

    for i:=l to NT do st := st + IntToStr(i)+ ' '

    + team[i] + #13; // âûâîä ñïèñêà Label1.Caption := st;

end;

end.