1:
2:
3:
4:
5:

if s1 = s2 then
begin
  tuwasbeigleich;
  tunochwasbeigleich;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

const
  Satzzeichen = ['.', ',', ';', ':', '"', '''', '(', ')', '?', '!'];

function f(const S1, S2: string): Boolean;
var
  P1, P2: PChar;
begin
  Result := False;
  P1 := PChar(S1);
  P2 := PChar(S2);
  while (P1[0] <> #0) and (P2[0] <> #0) do
  begin
    while (P1[0] in Satzzeichen) do Inc(P1);
    while (P2[0] in Satzzeichen) do Inc(P2);
    if P1[0] <> P2[0] then Exit;
    if P1[0] <> #0 then Inc(P1);
    if P2[0] <> #0 then Inc(P2);
  end;
  Result := True;
end;