Что делает в программе следующая строка?

программе следующая строка?



For

i:=1 to 10 do read(M[i]);



А) пересчет массива от 1 до 10;


B) заполнение

массива;

следующую строку. P.S. это очень срочно и чтобы не слишком много и не слишком мало

procedure vvod(var st:string[10]; c:string);
begin writeln('Ввести'+' '+c);
readln(st);
end;
function kol(c:string;st:string):integer;
var k,i:integer;
begin k:=0;
i:=1;
while i<=length(st) do
begin if copy(st,i,1)=c then
k:=k+1;
i:=i+1;
end;
kol:=k;
end;
var s,s1,s2:string[10];
Begin vvod(s,'строку');
vvod(s1,'символ первый');
vvod(s2,'символ второй');
if kol(s1,s) >kol(s2,s) then
writeln('Символ ',s1,' встречается в строке ',s, kol(s1,s):4,' раз. Это >, чем встречается ',s2)
else
if kol(s2,s) >kol(s1,s) then
writeln('Символ ',s2,' встречается в строке ',s, kol(s2,s):4,' раз. Это >, чем встречается ',s1)
else
writeln('Количество символов ',s1,' и ',s2,' в строке ',s,' одинаково и =',kol(s1,s):4) ;
end.

остановлена, т. к. один из драйверов сообщил об ошибке (Код 43). Нашла в интернете, что делать... Общие свойства, вызвать Мастера неполадок. ГДЕ ИСКАТЬ ЭТИ ОБЩИЕ СВОЙСТВА? Короче, помогиииите