Opdracht_2, Pascal

Opdracht_2

//fpc 3.0.0

program Opdracht_2;

var woord1 : string;
    woord2 : string;
    anagram : boolean;
    x : integer;
    y : integer;
    aantal1 : integer;
    aantal2 : integer;

begin
readln(woord1);
readln(woord2);
if length(woord1) = length(woord2) then
   begin
   anagram := true;
   x := 1;
   while (x<=length(woord1)) and (anagram=true) do
      begin
      aantal1 := 0;
      aantal2 := 0;
      y := 1;
      repeat
         if (woord1[x]=woord1[y]) then
            begin
            aantal1 := aantal1 + 1;
            end
         else
            begin
            end;
         if (woord1[x]=woord2[y]) then
            begin
            aantal2 := aantal2 + 1;
            end
         else
            begin
            end;
         y := y + 1;
      until (y>length(woord1));
      if (aantal1 <> aantal2) then
         begin
         anagram := false;
         end
      else
         begin
         end;
      x := x + 1;
      end;
   end
else
   begin
   anagram := false;
   end;
if (anagram = true) then
   begin
   writeln('anagram');
   end
else
   begin
   writeln('geen anagram');
   end;
end.


run \| edit \| history \| help	0