Что обозначает переменная "i" в программе?

uses crt;
var s1,s2,s3:string;
gl,glasnye: set of char;
i,k:integer;
begin clrscr;
write('s1: '); readln(s1);
writeln('длина s1= ',length(s1));
writeln;
write('s2: ');
repeat
s2:=s2+readkey;
write(s2[length(s2)]);
until(length(s2)=length(s1)-1) or (s2[length(s2)]='*');
writeln;
if s2[length(s2)]='*' then
delete(s2,length(s2),1);
glasnye:=['a','e','y','u','i','o'];
k:=0;
for i:=1 to length(s2) do
if (s2[i] in glasnye) then
 begin inc(k); gl:= gl+ [s2[i]]; end;
writeln('количество глассных в s2: ',k);
if gl = glasnye then writeln('использованы все глассные')
else writeln('использованы не все гласные');
write('s3: '); readln(s3);
k:=0;
while pos(s3,s2)>0 do
begin
inc(k);
delete(s2,pos(s3,s2),length(s3));
writeln(s2);
end;
writeln('количество s3 v s2: ',k);
write('измененная s2: '); writeln(s2);
readkey; 
end.

uses crt;
var s1,s2,s3:string;
gl,glasnye: set of char;
i,k:integer;
begin clrscr;
write('s1: '); readln(s1); //вводим первую строку
writeln('длина s1= ',length(s1)); //выводим её длину
writeln;
write('s2: '); //начинаем ввод второй строки
repeat //выполняем
s2:=s2+readkey; //чтение символа (к s2 добавляем нажатый символ: при s2='asd' и нажатом 'f' -> s2 := 'asdf'
write(s2[length(s2)]); //выводим текущую длину s2
until(length(s2)=length(s1)-1) or (s2[length(s2)]='*'); //и всё это до тех пор пока длина s2 не станет равна длине s1 - 1 ИЛИ не будет введна *
writeln;
if s2[length(s2)]='*' then //если последний введённый символ *
delete(s2,length(s2),1); //удаляем его
glasnye:=['a','e','y','u','i','o']; //создаём множество гласных букв
k:=0; //инициализируем счётчик гласных
for i:=1 to length(s2) do //по всей длине s2
if (s2[i] in glasnye) then //проверяем каждый символ на "гласность"
 begin inc(k); gl:= gl+ [s2[i]]; end; //если гласный -> увеличиваем счётчик и добавляем во множество "имеющихся в s2" гласный (множество гласных, встречаемых в s2)
writeln('количество глассных в s2: ',k);
if gl = glasnye then writeln('использованы все глассные') //если в s2 представлены все гласные (разве будет работать верно? при добавлении второго такого же значения во множество не добавляется дубликат? или есть проверка?)
else writeln('использованы не все гласные');
write('s3: '); readln(s3); //читаем строку s3
k:=0; //инициализируем счётчик
while pos(s3,s2)>0 do //пока s3 содержится в s2 (Pos('as', 'asasas') = 1)
begin
inc(k); //увеличиваем счётчик
delete(s2,pos(s3,s2),length(s3)); //удаляем встреченный экземпляр подстроки s3 в строке s2
writeln(s2); //выводим изменённую s2
end;
writeln('количество s3 v s2: ',k); //выводим количество встреченных экземпляров s3 в s2
write('измененная s2: '); writeln(s2);
readkey; 
end.