Задача на строки и вхождения

[Mrs.BlondieProger)]

Помогите пожалуйста исправить проги,условия задачь приведены ниже.

1)Даны две строки: S1 и S2. Проверить, содержится ли строка S2 в строке S1. Если да, то вывести номер позиции, начиная с которой S2 содержится в S1, если нет, то вывести 0.

Program smth1;
Var s1, s2 : string;
Function Check(const s1, s2 : string) : integer;
Var I, j : integer;
	F1 : Boolean;
Begin 
	Check := 0;
	If length(s1) – length(s2) < 0 then Exit;
	For i : =1 to length(s1) – length(s2) + do begin
F1 :=true;
For j :=1 to length(s2) do
F1 :=f1 and (s1[i+j-1] = s2[j]);
If f1 then begin
Check :=I;
Exit;
End;
End;
End;
Begin
	Readln(s1);
	Readln(s2);
	Writeln(check(s1,s2));
Readln;
End.

2)Найти сумму положительных нечётных чисел, меньших N.

Program xyz;
Var
	a,b,i,k,n:integer;
begin
	writeln (‘vvedi n’);
	readln(n);
for i:=1 to n do begin
if I mod 2<>0 then
inc(k,i);
end;
writeln;
writeln(k);
readln;
end.

[Карась]

2 задача.

inc(k,i); - зачем увеличиваете перемную i ? Неудастся это сделать т.к. она используется в цикле.

[begemotikdin]

2-я задача

summa:=0;
i:=0;
while i=n do 
 begin
  if (i>0) and (i mod<>0) then
    begin   
   summa:=summa+i; 
     end;
  inc(i);
 end;

[Makarov]

Задача 1: решение осуществляется с помощью одной функции - pos.

 a:=pos(s1,s2);
 if (a<>0) then writeln(a)
 else writeln('Строки s2 в строке s1 нет');

Функция pos, определяет с какой позиции в строке s1 начинается строка s2.

[puporev]

summa:=0;
i:=0;
while i=n do
begin
if (i>0) and (i mod<>0) then
begin
summa:=summa+i;
end;
inc(i);
end;

Исправьте while i=n do на while i<=n do

[-=<[Evklidd]>=-]

summa:=0;  
 i:=0;  
 while i=n do   
 begin  
 if (i>0) and (i mod<>0) then  
 begin     
 summa:=summa+i;   
 end;  
 inc(i);  
 end;

и исправьте i mod <> 0 на i mod 2 <> 0