Jak porównać stringi?

mam pewnien problem... mianowicie chicałbym porównać dwie zmienne typu string;
robię to tak
for i:=1 to length(na) do
begin
if (na[i]<>naz[i]) then flaga:=false;
end;
write(flaga);

na i naz to zmienne typu string;
niestety moja procedura zawsze zwraca wartość false :-/
może ktoś potrafiłby mi pomóc?

write(na = naz);

//dop: po co kombinowac z petla, skoro pascal oferuje gotowe rozwiazanie?

a ustawiasz najpierw flaga na true?

flaga:=true;
for i:=1 to length(na) do
 begin
   if (na[i]<>naz[i]) then flaga:=false;
 end;
 write(flaga);

tak
ale już udało mi się to opanować