нужно дать коментарий к каждой строчке кода, программа в дельфи

procedure Tform1.Button3Click(Sender:Tobject);//Мне было влом давать кнопке нормальное имя
begin //это такое начало процедуры
s:=Edit1.Text;//я не умею работать с локальными переменными и не понимаю, что такое область видимости
s :=concat (s, #32);//тут я решил соригинальничать и добавить пробел необычным способом
i :=0;//Я свято верю, что в других частях моей программы не будет цикла по i

while Length(s) > 0 do//пока строка не кончилась
begin
i:= i+1;//первым делом надо вычислить индекс незанятой ячейки. Вдруг пригодится?
p:= pos (#32,s);//тут я ищу пробел -
ss := copy (s,1,p-1);//ведь наверняка между пробелами стоят цыфры!
Val (ss,k,code);// тут я верю, что в строке не будут попадаться буквы и двойные пробелы
a[ i ] := k; //и что пробелов меньше, чем размер массива
delete(s,1,p); //я специально выбрал медленный алгоритм, чтобы пользователь не комплексовал
end;// а если выдаст ошибку - пусть пользователь сам догадается, почему!

max :=a[1];//это текущий максимум. Тоже глобальная переменная. Я не боюсь трудностей при отладке!
For j := 1 to i do if max < a[ j ] then max := a[ j ];//Тут ищу значение максимального элемента

min :=a[1];//Глобальные переменные небезопасны? что за чушь!
For j := 1 to i do if min > a[j] then min := a[j];//Я просто найду минимум

Edit3.Text := IntToStr (max);//Этим окошкам я тоже не придумал имени.
Edit2.Text := IntToStr (min);//Интересно, вспомню ли через неделю - что в них содержится?

end;//конец - всему делу венец!

Комментарий здесь может быть только один "Это жопа! "

s:=Edit1.Text;



С синтаксисом что-то не то, не?