Народ объясните пжл как это работает????????

[PRIVIDENIE18]

procedure TForm1.btn1Click(Sender: TObject);
var i,k,kol:Integer;
begin
mmo1.Clear;
kol:=0;
k:=StrToInt(edit2.text);
for i:=1 to k do
if k mod i=0 then begin
kol:=kol+1;
mmo1.Lines.Add(IntToStr(i));
end;

[VVM]

for i:=1 to k do //каждый раз от 1 до к выполняем:
 if k mod i=0 then begin // если остаток от деления k на i = 0 
 kol:=kol+1; // то увеличиваем kol на 1
 mmo1.Lines.Add(IntToStr(i));//и добавляем i в список memo

[PRIVIDENIE18]

Сообщение от VVM

for i:=1 to k do //каждый раз от 1 до к выполняем:
 if k mod i=0 then begin // если остаток от деления k на i = 0 
 kol:=kol+1; // то увеличиваем kol на 1
 mmo1.Lines.Add(IntToStr(i));//и добавляем i в список memo

Спасибо большое

[PRIVIDENIE18]

implementation
{$R *.dfm}
var f1,f2:textfile;
{Функция выделения цены}
Function price(s:string):real;
var i,k:integer;
begin
k:=length(s);
i:=k;
{Поиск последнего тире}
while s[i]<>'-' do
i:=i-1;
{Выделение цены}
price:=StrToFloat(Trim(Copy(s,i+1,k-i)));
end;

[GetMax]

mplementation
{$R *.dfm}
var f1,f2:textfile;
{Функция выделения цены}
Function price(s:string):real;
var i,k:integer;
begin
k:=length(s); //определяем длину строки
i:=k;
{Поиск последнего тире}
while s[i]<>'-' do i:=i-1 //ищем с конца строки символ тире и запоминаем его позицию
{Выделение цены}
price:=StrToFloat(Trim(Copy(s,i+1,k-i)));//копируем все что расположено после тире, что то делаем с полученной строкой функцией Trim, преобразуем строку в число и получаем цену
end;

[PRIVIDENIE18]

Сообщение от GetMax

mplementation
{$R *.dfm}
var f1,f2:textfile;
{Функция выделения цены}
Function price(s:string):real;
var i,k:integer;
begin
k:=length(s); //определяем длину строки
i:=k;
{Поиск последнего тире}
while s[i]<>'-' do i:=i-1 //ищем с конца строки символ тире и запоминаем его позицию
{Выделение цены}
price:=StrToFloat(Trim(Copy(s,i+1,k-i)));//копируем все что расположено после тире, что то делаем с полученной строкой функцией Trim, преобразуем строку в число и получаем цену
end;

Спасибо большое