Несколько школьников выстроились в шеренгу. Для каждого школьника известен день (число) его рождения. Требуетс

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
n:=strtoint(Edit1.Text) ;
label2.caption:=('äàòû äð');
for i:=1 to n do
begin
a[i]:=1+random (31);
end;
end;
end.

var
  Form1: TForm1;
  n,i,a,b,f:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled:=true;
Button2.Enabled:=false;
Memo1.Clear;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
val(Edit1.Text,n,k);
if(k<>0)or(n<2)then
 begin
  showmessage('Неерно введено количество школьников');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
Button1.Enabled:=false;
Button2.Enabled:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var x,k:integer;
begin
val(Edit2.Text,x,k);
if (k<>0)or not(x in [130..180]) then
 begin
  showmessage('Введите рост от 130 до 180 см');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
Memo1.Lines.Add(inttostr(x));
Edit2.Clear;
Edit2.SetFocus;
if i=0 then a:=x
 else
  begin
   b:=x;
   if b>a then f:=1;
   a:=b;
  end;
 inc(i);
 if i=n then
  begin
   Button2.Enabled:=false;
   if f=0 then Memo1.Lines.Add('Рост упорядочен по убываию')
   else Memo1.Lines.Add('Рост не упорядочен по убываию');
 end;
end;

var
  Form1: TForm1;
  a:array of Integer;
  n,i:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled:=true;
Button2.Enabled:=false;
Memo1.Clear;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
val(Edit1.Text,n,k);
if(k<>0)or(n<2)then
 begin
  showmessage('Неерно введено количество школьников');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
SetLength(a,n);
Button1.Enabled:=false;
Button2.Enabled:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var x,k,f:integer;
begin
val(Edit2.Text,x,k);
if (k<>0)or not(x in [1..31]) then
 begin
  showmessage('Вводите дни рождения от 1 до 31');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
a[i]:=x;
Memo1.Lines.Add(inttostr(a[i]));
Edit2.Clear;
Edit2.SetFocus;
inc(i);
if i=n then
 begin
  Button2.Enabled:=false;
  f:=0;
  k:=1;
  while (k<n)and(f=0) do
  if a[k]>a[k-1] then f:=1
  else inc(k);
  if f=0 then Memo1.Lines.Add('Дни рождения упорядочены по убыванию')
  else Memo1.Lines.Add('Дни рождения не упорядочены по убыванию');
 end;
end;

var
  Form1: TForm1;
  a:array of Integer;
  n:integer;
implementation
 
{$R *.dfm}
//зададим некоторые параметры компонентов
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled:=true; //1 кнопку вулючим
Button2.Enabled:=false;//2 выключим
with StringGrid1 do //таблица
 begin
   FixedCols:=0; //нет фиксированных стобцов
   FixedRows:=0;  // и строк
   DefaultColWidth:=25;//ширина столбцов
   RowCount:=1; //кол. строк
   ScrollBars:=ssHorizontal; //горизонтальная прокрутка
   Options:=Options+[goEditing];//разрешить ввод в ячейки
  end;
end;
//вод размера массива
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
val(Edit1.Text,n,k);
if(k<>0)or(n<2)then
 begin
  showmessage('Неерно введено количество школьников');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
SetLength(a,n);
StringGrid1.ColCount:=n;
Button1.Enabled:=false;
Button2.Enabled:=true;
ShowMessage('Введите в ячейки таблицы числа от 1 до 31');
end;
 
 
//решение
procedure TForm1.Button2Click(Sender: TObject);
var i,k,f:Integer;
begin
for i:=0 to n-1 do
 begin
  Val(StringGrid1.Cells[i,0],a[i],k);
  if(k<>0)or not(a[i] in [1..31]) then
   begin
     ShowMessage('Не все значения введены верно, поправьте');
     exit;
   end;
  end;
f:=0;
i:=1;
while (i<n)and(f=0) do
if a[i]>a[i-1] then f:=1
else inc(i);
if f=0 then ShowMessage('Дни рождения упорядочены по убыванию')
else ShowMessage('Дни рождения не упорядочены по убыванию');
 
end;