Проблема с задачей на одномерный массив в Делфи 7

[sting]

Здравствуйте Друзя!

Я выполняю лабы по делфи щас! и столкнулся с ерундой прям какой то!
Делаю всё по метадички! вот она:

1.4 Пример выполнения задания
В целочисленном массиве А(10) найти максимальный и минимальный эле-менты и поменять их местами.
Решение
1 Откроем новый проект, используя команду главного меню File | New | Appli-cation.
2 Из страницы Standard поместим на Forml следующие компоненты Edit, But-ton и List Box (Combo Box).
3 С помошью Инспектора Объектов зададим в качестве значения для свойства Text компонента Edit1 пустую строку. Установим для левой кнопки значение свойст-ва Caption равным 'Ввод', а для правой - 'Решение'.
4 В разделе interface вставим описание массива а и используемых переменных:
а:аггау [1. .10] of integer;
i, min,max,imax,imin: integer;
5 Выполним двойной щелчок по форме Forml, в результате чего будет создана заготовка события OnCreate для формы, возникающего в момент создания формы. Размещение операторов в этом обработчике во многих случаях эквивалентно разме-щению операторов в секции initialization модуля. Поместим там следующие строки:
i:=0;
ListBoxl. Clear ListBox2.Clear;
6 Активизируем двойным щелчком кнопку "Ввод" и в заготовку обработчика события OnClick поместим следующий код:
ListBoxl.Items.Add(Editl.Text);
i := i+1;
a[i] := StrToInt(Editl.Text);
Editl.SetFocus
7 Активизируем кнопку "Решение" и в заготовку обработчика события помес-тим следующий текст:
max := a[l];
imax := 1;
min := a[l];
imin : = 1;
for k := 2 to 10 do
begin
if max < a[k] then
begin
max := a[k];
imax := k
end;
if min > a[k] then
begin
min := a[k];
imin := k
end;
end;
a [imax] := min;
a [imin] := max;
for k := 1 to 10 do
ListBox2.Items.Add(IntToStr(a[k]));
8 Для удобства работы с приложением создадим обработчик события OnKey-Down для строки ввода Editl, в котором при нажатии на клавишу Enter фокус ввода будет переводиться на кнопку "Ввод":
if key = 13 then Buttonl.SetFocus
9 Сохраним проект при помощи команды главного меню File | Save All.
10 Запустим программу с помощью клавиши F9. Для ввода целых чисел ис-пользуем строку ввода Edit. Ввод каждого числа завершаем нажатием кнопки Enter либо щелчком мыши по кнопке "Ввод". Введенные числа отображаются в первом списке. После нажатия на клавишу "Решение" получим результат во втором списке.

Приведем полный текст сформированного модуля

Текст модуля Unitl.pas

unit  Unitl; interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; 
	Type
	TForml = class (TForm)	
Editl:   TEdit;
ListBoxl:   TLlstBox;
ListBox2:   TListBox;
Buttonl:   TButton;
Button2:   TButton;
procedure  ButtonlClick(Sender:   TObject);
procedure  FormCreate(Sender:   TObject);
procedure  ButtonZClick(Sender:   TObject);
procedure  EditlKeyDown(Sender:   TObject;   var  Key:   Word;
Shift:   TShiftState) ; 
private
{ Private  declarations   } 
public
{ Public  declarations   } 
end;
var
Forml:   TForml;
a:array[l. .10]   of   integer;
i, min,max,imax,imin:integer;
implementation 
{$R *.DFM}
procedure TForml.ButtonlClick(Sender:   TObject);
begin
ListBoxl.Items.Add(Editl.Text);
i := i+1;
a[i]   :=  StrToInt(Editl.Text);
Editl. SetFocus end;
procedure TForml .FormCreate (Sender:   TObject);
begin
i:=0;
ListBoxl.Clear;
ListBox2.Clear; end;
procedure TForml.Button2Click(Sender:   TObject); var k:integer; 
begin
max := a[l]; 
imax  :=  1; min  :=  a[l]; 
imin   : =   1;
for k  :=  2  to   10   do 
begin
if max  <  a[k]   then 
begin
max   :=  a[k]; imax   :=  k
end;	
		if min>a[k]then
begin
min   :=   a[k]; imin   :=  k
		end;
	end;
a[imax]:= min;
a[imin]:=max;
for k:= 1 to 10 do
	ListBox.Items.Add(IntToStr(a[k]));
End;

Procedure TForm1.Edit1KeyDown(Sender: Tobject; var Key: Word; Shift: Shift-State);
Begin
If  key=13 then Button1.SetFocus
End;
End.

вот...
Я делаю всё так же! а она не запускается у меня! ругается на вот эту строчку:

а:аггау [1. .10] of integer;
i, min,max,imax,imin: integer;

На 8 попробовал - так же!

в чём проблема?

[L_M]

возможно нужно убрать пробел между точками? [1..10] вместо [1. .10]

[sting]

в книжках так вроде!

[L_M]

не надо так

[L_M]

вообще книжку надо прочитать, а потом, закрыв ее, писать программу

[sting]

ну блин в паскале так как ты гаваришь помоему.. а в делфи нет па ходу.. хотя мож ошибаюсь

[L_M]

да нет в дельфи именно так

[sting]

с 3 точками? слушай попробуй у себя сделать.. а? мож у тебя с 2 пойдёт? а то мож у меня как всегда делфи тупит!

[L_M]

и вообще поисправляй везде l на 1

[sting]

во! спасибо! он теперь начал ругаться на вот эту строчку!, хотя там 1 исправил!

imin   : =   1;