Сравнение строк

[Elm0]

Здравствуйте!
Глупый вопрос конечно.....=((Но пожалуйста укажите на ошибочку.
Сравниваю 2 строки. Посмотрите именно на этот кусок. В реальности код у меня немного другой (не охота было печатать), я там сраниваю длину строк и реализовано с исп. ф-ции..так что не обращайте внимания. не работает именно "ядро"

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var s1,s2:string;
 w1,w2,i,j:integer;
 b: boolean;
begin
  w1:=0;
  w2:=0;
  b:=false;
  writeln('Vvedi 2 stroki');
  readln(s1);
  readln(s2);
  for I := 0 to length(s1)-1 do
  for j:=0 to length (s2)-1 do
  if s1[i]=s2[j] then
  begin
      inc (w1);    
      inc (w2);
  end
  else b:=false;
if w1=w2 then b:=true              
else b:=false;
if b=true then
writeln('Ravni') else
  writeln ('Ne ravni');
readln;
end.

программа все сторки считает равными.

[B_N]

Elm0, я конечно извиняюсь, но это не сравнение строк, а страх какой-то... Зачем два индекса? После "сравнения", если в строках отличается, скажем, один символ, (или два, или три - неважно), w1 и w2 будут равны, что уничтожит "b:=false;" и где, кстати, break в этом случае? Про то, что вместо "if b=true then" вполне можно писать "if b then" уже и говорить-то как-то неуместно...

[Stilet]

А что простое сравнение двух переменных уже отменили?