Программирование циклических алгоритмов

var
  Form1: TForm1;
 // глобальные переменные
  n,i,k:integer;//количество и счетчики
  a:real; //вводимые числа
  max:real;// максимальное
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var c:integer;
begin
val(Edit1.Text,n,c);
if(c<>0)or (n<1)then
 begin
  showmessage('Неверно введено N');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
  end;
Label4.Caption:='';
Button1.Enabled:=false;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var c:integer;
begin
i:=i+1;//номер числа
val(Edit2.Text,a,c);//само число
if (c<>0)then
 begin
  showmessage('Неверно введено число');
  Edit2.Clear;
  Edit2.SetFocus;
  i:=i-1;
  exit;
 end;
//выводим
Label4.Caption:=Label4.Caption+'  '+Format('%.2f',[a]);
if a<0 then
if k=0 then
 begin
  max:=a;
  k:=1;
 end 
else if a>max then max:=a;
Edit2.Clear; //очищаем поле ввода
Edit2.SetFocus;
if i=n then//если ввели все
 begin
  Button2.Enabled:=false; //выключаем Эдит и кнопку
  Edit2.Enabled:=false;
  if k=0 then Label5.Caption:='Вы не ввели ни одного отрицательного числа'
  else Label5.Caption:='Максимальное  отрицательное='+format('%.2f',[max]);
 end;
end;