строки

[Алекс 94]

Что обозначает переменная "i" в программе? И что такое "ins(k)"?
Код Pascal

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.

____
Исходный код нужно форматировать с помощью тегов!
Модератор

[Alex11223]

inc(k) это k:=k+1

[Алекс 94]

спасибо! еще б узнать что обозначает переменная 'i'

[Alex11223]

Ну дык смотрите где и для чего она используется в программе. Счетчик цикла for это.

[Serge_Bliznykov]

а переменная i - вспомогательная, используется в качестве переменной цикла, для перебора символов строки s2