Робинзон и крокодилы

var
  a: array [,] of char;
  n, m, x, y, count: integer;
  Yes, changed: boolean;
 
procedure scan;
var x_1, y_1: integer;
begin
  if not changed Then
    exit
  else
    begin
    changed := False;
    for var x := 0 to n - 1 do
      for var y := 0 to m - 1 do
      begin
        Yes := True;
        if a[x, y] = 'N' Then
        begin
          for x_1 := x - 1 downto 0 do
            if a[x_1, y] <> '.' Then
            begin
              Yes := False;
              break; 
            end;     
        end
        else
        if a[x, y] = 'S' Then
        begin
          for x_1 := x + 1 to n - 1 do
            if a[x_1, y] <> '.' Then
            begin
              Yes := False;
              break; 
            end;    
        end
        else
        if a[x, y] = 'W' Then
        begin
          for y_1 := y - 1 downto 0 do
            if a[x, y_1] <> '.' Then
            begin
              Yes := False;
              break; 
            end;    
        end
        else
          if a[x, y] = 'E' Then
        begin
          for y_1 := y + 1 to m - 1 do
            if a[x, y_1] <> '.' Then
            begin
              Yes := False;
              break; 
            end;    
        end
        else
          continue;
        
        
        if Yes Then
        begin          
          changed := True;
          a[x, y] := '.';
          inc(count);
        end;
      end;
    scan();
  end;
end;
 
 
begin
  readln(n, m);  
  SetLength(a, n, m);  
  for x := 0 to n - 1 do
  begin
    for y := 0 to m - 1 do      
      read(a[x, y]);
    readln();
  end;
  //N, S, W, E
  changed := True;
  scan();
  writeln(count);
end.

begin
  var(rows,cols):=ReadLnInteger2;
  var a:array [,] of Integer;
  Setlength(a,rows,cols);
  for var row:=0 to rows-1 do
    begin
      var s:=ReadLnString;
      for var col:=0 to cols-1 do
        case s[col+1] of
          '.' : a[row,col]:=0;
          'N' : a[row,col]:=1;
          'S' : a[row,col]:=2;
          'E' : a[row,col]:=3;
          'W' : a[row,col]:=4;
        end;
    end;
    
  var count:=0;
  repeat
    var pred:=count;
    
    for var row:=0 to rows-1 do
      for var col:=0 to cols-1 do
        if a[row,col]>0 then
          begin
            var s:=0;
            case a[row,col] of
              1 : for var r:=0 to row-1 do s+=a[r,col]; // N : row-1
              2 : for var r:=row+1 to rows-1 do s+=a[r,col]; // S : row+1
              3 : for var c:=col+1 to cols-1 do s+=a[row,c]; // E : col+1
              4 : for var c:=0 to col-1 do s+=a[row,c]; // W : col-1
            end;
            if s=0 then begin a[row,col]:=0; count+=1; end;
          end;
    
    if pred = count then Break;
  until False;
  
  count.Println;
end.